Как узнать время окончания архивации [D7, XP]
VitAngel © (2007-02-12 18:50:00)
Вечер добрый! Как, после запуска архивации из
программы(ShellExecute), узнать о том, что она завершена?
koha (2007-02-12 19:05:00) [1]
> Вечер добрый! Как, после запуска архивации из программы(
ShellExecute),
> узнать о том, что она завершена?
И вообще не парься с этой функцией вот предлагаю другую,
которая запускает процесс и ждет его окончания, если ее запускать в
цикле, а когда один процес завершится, запустит другой.
Отредактируешь ее мемного и сгодится, а так полность рабочая:
function ExecAndWait(const FileName: string; const CmdShow:
Integer): Longword;
var { by Pat Ritchey }
zAppName: array[0..512] of Char;
zCurDir: array[0..255] of Char;
WorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
AppIsRunning: DWORD;
begin
StrPCopy(zAppName, FileName);
GetDir(0, WorkDir);
StrPCopy(zCurDir, WorkDir);
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
StartupInfo.cb :=
SizeOf(StartupInfo);
StartupInfo.dwFlags :=
STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := CmdShow;
if not CreateProcess(nil,
zAppName, // pointer to command line string
nil, // pointer to process
security attributes
nil, // pointer to thread
security attributes
False, // handle inheritance flag
CREATE_NEW_CONSOLE or // creation flags
NORMAL_PRIORITY_CLASS,
nil, //pointer to
new environment block
nil, // pointer to
current directory name
StartupInfo, // pointer to STARTUPINFO
ProcessInfo) // pointer to PROCESS_INF
then Result := WAIT_FAILED
else
begin
while WaitForSingleObject(ProcessInfo.hProcess,
0) = WAIT_TIMEOUT do
begin
Application.ProcessMessages;
Sleep(50);
end;
{
// or:
repeat
AppIsRunning :=
WaitForSingleObject(ProcessInfo.hProcess, 100);
Application.ProcessMessages;
Sleep(50);
until (AppIsRunning <> WAIT_TIMEOUT);
}
WaitForSingleObject(ProcessInfo.hProcess,
INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,
Result);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;
end; { WinExecAndWait32 }
Наверх 
ЧАТ |
Орешник |
|
