ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как дождаться окончания запуска....
3 сообщений из 3, страница 1 из 1
Как дождаться окончания запуска....
    #32074751
-=Extreme=-ShamaN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=Extreme=-ShamaN
Гость
Subj чего-либо?
WinExec не ждёт!
...
Рейтинг: 0 / 0
02.12.2002, 16:46
| Ответить | Цитировать | Написать  
Как дождаться окончания запуска....
    #32074778
Фотография Tаrantino
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tаrantino
Участник
примерно так:
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;
...
Рейтинг: 0 / 0
02.12.2002, 17:19
| Ответить | Цитировать | Написать  
Как дождаться окончания запуска....
    #32074792
-=Extreme=-ShamaN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=Extreme=-ShamaN
Гость
Пасибки, заюзаю этот кодеЦ! %)
...
Рейтинг: 0 / 0
02.12.2002, 17:46
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как дождаться окончания запуска....
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]