Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизКаким образом через Delphi можно запустить *.exe с .... Найти похожие ветки
← →
Dmitriy(new) (2001-12-18 11:39) [3]function CreateProcessSimple(sExecFilePath:string;AWait:Boolean;AMax:Boolean):string;
var si: TStartupInfo; pi: TProcessInformation;
begin
FillMemory( @si, sizeof( si ), 0 ); si.cb := sizeof( si );
IF Amax Then Begin si.dwFlags := STARTF_USESHOWWINDOW; si.wShowWindow:=SW_SHOWMAXIMIZED; End;
if not CreateProcess(Nil,PChar(sExecFilePath ),Nil, Nil, False,
NORMAL_PRIORITY_CLASS , Nil, Nil, si, pi ) then
Application.MessageBox(Pchar("Failed to execute program : "+sExecFilePath),"Error",IDOK);
result:=inttostr(PI.hProcess); CloseHandle( pi.hThread );
Application.ProcessMessages;
if AWait then WaitForSingleObject(pi.hProcess, INFINITE);
CloseHandle( pi.hProcess );
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.007 c