Текущий архив: 2006.07.23;
Скачать: CL | DM;
Вниз
Запуск программы с параметром и ожидание завершения Найти похожие ветки
← →
harddrive_tester (2006-06-08 16:47) [0]Здравствуйте !
Мне нужно запустить программу с параметром и ожидать её завершение.
Вот исходник, который запускает пограмму и ждёт её завершение, но мне нужно добавить параметр к программе (программа является ДОСовской),а с параметрами не работает.
Подскажите что можно придумать:
procedure TForm1.FormCreate(Sender: TObject);
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString, StartInString: string;
begin
ExecuteFile:=1.bat + ">" + "c:\temp.txt";
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo)
then begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
showmessage("Not loaded !");
end
else showmessage("OK");
application.Terminate;
end;
← →
tesseract © (2006-06-08 16:49) [1]см CreateProcess, особенно комментарии касающиеся запуска 16-битных процессов.
← →
harddrive_tester (2006-06-08 16:52) [2]Спасибо - нашёл :)
← →
ancara © (2006-06-09 13:16) [3]CreateProcess + WaitForSingleObject
Страницы: 1 вся ветка
Текущий архив: 2006.07.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.031 c
