Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

ShellExecute ? 


Yuriy   (2001-11-25 22:13) [0]

С помощью ShellExecute запускаю некую прогу, скажем архиватор, как узнать, что она закончила свою работу? Нужно узнать время прошедшее с начала архивации до ее завершения



Fellomena   (2001-11-26 15:55) [1]

Если запускаешь с помощью ShellExecute, то никак - ShellExecute просто запускает процесс, не "зная" о нём ничего.
Используй CreateProcess, с его помощью можно отслеживать окончание работы запущенных процессов.



Romkin   (2001-11-26 16:34) [2]

Как не знает???
Возвращаемое значение - instance handle, поэтому можно использовать
WaitForSingleObject|MsgWaitForSingleObject на результат
Можно и использовать ShellExecuteEx, там HINSTANCE в структуре



handra   (2001-11-26 18:41) [3]


unit exec;

interface

function ExecAndWait(const fname,params: string; nShowCmd: Cardinal): boolean;

implementation

uses Windows, ShellAPI, Forms;

function ExecAndWait(const fname,params: string; nShowCmd: Cardinal): boolean;
var data: TShellExecuteInfo;
begin
Result := false;
data.cbSize := sizeof(data);
data.fMask := SEE_MASK_DOENVSUBST or SEE_MASK_NOCLOSEPROCESS;
data.Wnd := 0;
data.lpVerb := nil;
data.lpFile := PChar(fname);
data.lpParameters := PChar(params);
data.lpDirectory := nil;
data.nShow := nShowCmd;
ShellExecuteEx(@data);
while true do begin
Application.ProcessMessages;
case WaitForSingleObject(data.hProcess,100) of
WAIT_FAILED: Result := false;
WAIT_OBJECT_0: Result := true;
else continue;
end;
break;
end;
end;

end.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.057 c
1-90267           elk                   2002-01-09 13:24  2002.01.28  
перекодировка hello <-> руддщ


14-90380          Искатель              2001-12-02 00:17  2002.01.28  
Кто что использует для создания 3-х мерных элементов интерфейса?


1-90261           Delphimun             2002-01-07 11:55  2002.01.28  
Как найти далее при помощи pos?


4-90417           ogu                   2001-11-25 22:23  2002.01.28  
ProgressBar на API


1-90307           dmitry_s              2002-01-11 11:52  2002.01.28  
Delphi5 & MSSQL uniqueidentifier