WinExecAndWait32

function WinExecAndWait32(FileName:String; Visibility : integer):integer;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;

begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName,                      { указатель на строку с командной строкой }
nil,                           { указатель на атрибуты безопасности процесса }
nil,                           { указатель на атрибуты безопасности потока }
false,                         { флаг дескриптора предка }
CREATE_NEW_CONSOLE or          { флаги создания }
NORMAL_PRIORITY_CLASS,
nil,                           { указатель на новый блок среды }
nil,                           { указатель на имя текущего каталога }
StartupInfo,                   { указатель на STARTUPINFO }
ProcessInfo) then Result := -1 { указатель на PROCESS_INF }
else
begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);
end;
end;
 
« Предыдущая статья   Следующая статья »