|
|
|
Как дождаться окончания запуска....
|
|||
|---|---|---|---|
|
#18+
Subj чего-либо? WinExec не ждёт! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.12.2002, 16:46:58 |
|
||
|
Как дождаться окончания запуска....
|
|||
|---|---|---|---|
|
#18+
примерно так: function ToriExecuteAndWait(aFileName: String; aHideApplication: Boolean; aShowWindow: Word): Boolean ; var aStartupInfo: TStartupInfo ; aProcessInfo: TProcessInformation ; aExitc : Cardinal ; begin FillChar(aStartupInfo, SizeOf(aStartupInfo), 0) ; with aStartupInfo do begin cb := SizeOf(aStartupInfo) ; dwFlags := STARTF_USESHOWWINDOW ; wShowWindow := aShowWindow ; end; if not CreateProcess(nil, PChar(aFileName), nil, nil, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, aStartupInfo, aProcessInfo) then Result := False else begin if aHideApplication then begin Application.Minimize ; ShowWindow(Application.Handle, SW_HIDE) ; WaitforSingleObject(aProcessInfo.hProcess, INFINITE) ; end else while WaitforSingleObject(aProcessInfo.hProcess, 100) = WAIT_TIMEOUT do begin Application.ProcessMessages ; if Application.Terminated then TerminateProcess(aProcessInfo.hProcess, 0) ; end; GetExitCodeProcess(aProcessInfo.hProcess, aExitc) ; Result := (aExitc = 0) ; if aHideApplication then begin ShowWindow(Application.Handle, SW_SHOW) ; Application.Restore ; Application.BringToFront ; end; end; end; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.12.2002, 17:19:59 |
|
||
|
|
start [/forum/topic.php?fid=58&fpage=2076&tid=2119574]: |
0ms |
get settings: |
8ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
60ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
28ms |
get tp. blocked users: |
1ms |
| others: | 203ms |
| total: | 334ms |
| 0 / 0 |
