function ExecModule( const Module: String; Timeout: DWORD = INFINITE; ShowWindow: WORD = SW_MINIMIZE; Priority: DWORD = NORMAL_PRIORITY_CLASS ): Integer;
var
S : TStartupInfo;
P : TProcessInformation;
R : Integer;
begin
Result := $FFFF;
FillChar( S, SizeOf( S ), 0 );
with S do begin
cb := SizeOf( S );
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := ShowWindow;
end;
Win32Check( CreateProcess( nil, PChar( Module ), nil, nil, False, Priority, nil, nil, S, P ) );
try
R := WaitForSingleObject( P.hProcess, Timeout );
finally
TerminateProcess( P.hProcess, 0 );
end;
case R of
WAIT_OBJECT_0 : GetExitCodeProcess( P.hProcess, DWORD( Result ) );
WAIT_ABANDONED : Result := -2;
WAIT_TIMEOUT : Result := -1;
end;
end;