Текущий архив: 2003.04.14;
Скачать: CL | DM;
Вниз
ShellExecute or WinExec Найти похожие ветки
← →
Dimosha (2003-04-01 17:51) [0]Как запустить другую программу с параметрами в строке - понятно, а вот как дождаться ее выполнения ???
← →
Leran2002 © (2003-04-01 17:55) [1]procedure RunAndWait({AppH:THandle;}NameS,PrmS,DirS:string;ShwMod:integer);
var
Info:TShellExecuteInfo;
begin
FillChar(Info,SizeOf(Info),0);
with Info do begin
cbSize:=SizeOf(TShellExecuteInfo);
fMask:=SEE_MASK_NOCLOSEPROCESS;
Wnd:={AppH}0;
lpFile:=PChar(NameS);
lpParameters:=PChar(PrmS);
lpDirectory:=PChar(DirS);
nShow:=ShwMod;
end;
if ShellExecuteEx(@Info) then WaitForSingleObject(Info.hProcess,INFINITE);
end;
Страницы: 1 вся ветка
Текущий архив: 2003.04.14;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.021 c
