г. Autos писал(а):
Что для этого нужно указать в поле "Имя текущего файла"?Использовать верхнюю точку FileName у компонента FileTools и связать ее с нижней точкой AppFileName компонента Application. Естественно, в данном случае предполагается, что плейер написан на HiAsm-e.
code_21019.txt
Если это чужой плейер, то полный путь к исполняемому файлу можно получить по имени запущенного процесса
------------ Дoбавленo в 10.53:
Как-то вот так -- ищем, где находится запущенный файл HiAsm.exe
Add(MainForm,2953706,119,98)
{
}
Add(EnumProcess,7588614,182,119)
{
DebugPrivilege=0
Point(doFindName)
Point(onFind)
Point(Name)
link(onProcess,16273407:doValue,[])
link(onFind,7588614:doEnum,[(226,132)(226,109)(169,109)(169,125)])
link(Name,12786301:Var2,[])
}
Add(Memory,10715851,189,49)
{
Default=String(HiAsm.exe)
}
Add(FilePartElm,8845160,287,119)
{
link(onPart,14869969:doCompare,[])
}
Add(If_else,14869969,336,119)
{
link(onTrue,15636021:doText,[])
link(Op2,12786301:Var3,[(349,96)])
}
Add(GetDataEx,12786301,189,91)
{
link(Data,10715851:Value,[])
}
Add(Memory,16273407,238,119)
{
link(onData,8845160:doPart,[])
}
Add(Button,11763449,119,140)
{
Left=165
Top=35
link(onClick,7588614:doFindName,[])
}
Add(Edit,15636021,392,119)
{
Left=5
Top=5
Width=380
Text=""
link(Str,16273407:Value,[(398,107)(321,107)(321,163)(244,163)])
}
Если предполагается искать незапущенный файл на диске, то кроме как перебором всех папок и файлов на диске, найти этот файл не удастся. Это сделать реально, но процедура поиска довольно длительная по времени
Поиск
Друзья
Администрация