Serega, у меня последняя от Restools. Для моего случая нужно использовать весь пример скрипта или этого куска достаточно?
Цитата:
[code]
var
ResultCode: Integer;
function IsProgRunning(ProgName: string): Boolean;
// функция определяет, запущенно ли приложение
var
Size: Integer;
begin
Result:= False;
Exec('cmd', '/c tasklist /fi "IMAGENAME eq ' + ProgName + '" >"' +
ExpandConstant('{tmp}\RunList"'), '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
if FileSize(ExpandConstant('{tmp}\RunList'), Size) then
if Size > 0 then Result:= True;
end;
|
если достаточно, то как задать задержку 200-300 мс и связать с
arc.exe моего скрипта...
