Кто ориентируется в программном запуске ехе-шников?
Есть досовский ехе-файл. Как запустить его программно из другой программы, скомпилированной в среде DELFI?
Как обнаружить его завершение?
Полная версия этой страницы: Как программно запустить Досовское приложение?
Что касается запуска:
ShellExecute(HWND_DESKTOP, 'open', 'путь', nil, nil, SW_SHOWNORMAL);
находится в ShellApi
А вот чтоб обнаружить завершение: если приложение имеет идентификатор окна, то пойдет
если не имеет идентификатора, то скажите.
ShellExecute(HWND_DESKTOP, 'open', 'путь', nil, nil, SW_SHOWNORMAL);
находится в ShellApi
А вот чтоб обнаружить завершение: если приложение имеет идентификатор окна, то пойдет
Код
Wnd: HWd;
Wnd:=FindWindow(nil, 'Заголовок');
if Wnd<>0 then {ехе-файл работает}
Wnd:=FindWindow(nil, 'Заголовок');
if Wnd<>0 then {ехе-файл работает}
если не имеет идентификатора, то скажите.
Вызывает некоторые сомнения, что дос-приложение будет создавать окошки отличные от "c:\windows\system32\cmd.exe"...
Я бы для запуска использовал CreateProcess (да, там куча параметров, но большинство можно тупо ставить NULL) - эта функция не только запускает процесс, но и возвращает его идентификатор (через lpProcessInformation.hProcess).
А потом состояние процесса можно проверять с помощью GetExitCodeProcess: пока процесс живой, будет возвращаться STILL_ACTIVE, в противном случае - код завершения.
Я бы для запуска использовал CreateProcess (да, там куча параметров, но большинство можно тупо ставить NULL) - эта функция не только запускает процесс, но и возвращает его идентификатор (через lpProcessInformation.hProcess).
А потом состояние процесса можно проверять с помощью GetExitCodeProcess: пока процесс живой, будет возвращаться STILL_ACTIVE, в противном случае - код завершения.
Цитата(ProgeRock @ 16:04:2008, 17:34 ) 
Что касается запуска:
ShellExecute(HWND_DESKTOP, 'open', 'путь', nil, nil, SW_SHOWNORMAL);
находится в ShellApi
А вот чтоб обнаружить завершение: если приложение имеет идентификатор окна, то пойдет
если не имеет идентификатора, то скажите.
ShellExecute(HWND_DESKTOP, 'open', 'путь', nil, nil, SW_SHOWNORMAL);
находится в ShellApi
А вот чтоб обнаружить завершение: если приложение имеет идентификатор окна, то пойдет
Код
Wnd: HWd;
Wnd:=FindWindow(nil, 'Заголовок');
if Wnd<>0 then {ехе-файл работает}
Wnd:=FindWindow(nil, 'Заголовок');
if Wnd<>0 then {ехе-файл работает}
если не имеет идентификатора, то скажите.
Окна у программы нет.
Есть еще одно уточнение - нужен синхронный запуск, т.е. приостановить выполнение основной программы до завершения подчиненной.
semantics
Можно используя
1. ShellExecutEx и WaitForInputIdle или WaitForSingleObject
2. CreateProcess и WaitForInputIdle или WaitForSingleObject
Можно используя
1. ShellExecutEx и WaitForInputIdle или WaitForSingleObject
2. CreateProcess и WaitForInputIdle или WaitForSingleObject
Код
procedure TForm1.Button1Click(Sender: TObject);
var
ShellInfo: TShellExecuteInfo;
Code: DWord;
Hnd: THandle;
begin
FillChar(ShellInfo, SizeOf(TShellExecuteInfo), 0);
ShellInfo.cbSize:=SizeOf(TShellExecuteInfo);
ShellInfo.fMask:=SEE_MASK_NOCLOSEPROCESS;
ShellInfo.Wnd:=HWND_DESKTOP;
ShellInfo.lpFile:='путь к файлу';
ShellInfo.lpParameters:=nil;
ShellInfo.lpDirectory:=nil;
ShellInfo.nShow:=SW_SHOWNORMAL;
ShellExecuteEx(@ShellInfo); //Можно использовать вместо ShellExecute
Hnd:=ShellInfo.hProcess ;
GetExitCodeProcess(Hnd, Code);
if Code=Still_Active then {приложение работает};
end;
var
ShellInfo: TShellExecuteInfo;
Code: DWord;
Hnd: THandle;
begin
FillChar(ShellInfo, SizeOf(TShellExecuteInfo), 0);
ShellInfo.cbSize:=SizeOf(TShellExecuteInfo);
ShellInfo.fMask:=SEE_MASK_NOCLOSEPROCESS;
ShellInfo.Wnd:=HWND_DESKTOP;
ShellInfo.lpFile:='путь к файлу';
ShellInfo.lpParameters:=nil;
ShellInfo.lpDirectory:=nil;
ShellInfo.nShow:=SW_SHOWNORMAL;
ShellExecuteEx(@ShellInfo); //Можно использовать вместо ShellExecute
Hnd:=ShellInfo.hProcess ;
GetExitCodeProcess(Hnd, Code);
if Code=Still_Active then {приложение работает};
end;
ProgeRock
GetExitCodeProcess(Hnd, Code); - не самое лучшее решение, тогда надо в цикле вызывать этот код. Лучше сделать:
WaitForInputIdle(ShellInfo.hProcess, 200); //приложение ждет 200 мс (если надо бесконечно, пока не завершится, то вместо 200, infinite) пока не завершится вызванный процесс
GetExitCodeProcess(Hnd, Code); - не самое лучшее решение, тогда надо в цикле вызывать этот код. Лучше сделать:
WaitForInputIdle(ShellInfo.hProcess, 200); //приложение ждет 200 мс (если надо бесконечно, пока не завершится, то вместо 200, infinite) пока не завершится вызванный процесс
Спасибо, сделал CreateProcess - работает.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.