ExecuteProcess - with Command Line Support
ExecuteProcess - with Command Line Support
This proc is a Delphi wrapper around
the Win32 API "CreateProcess". It is
a better idea to use this instead of
ShellExecute or other 16-bit functions when you're program is to
run in a 32-bit environment
procedure ExecuteProcess(FileName: String;
Params: String; Show: Integer);
var
StartUpInfo: TStartUpInfo;
ProcessInfo: TProcessInformation;
begin
if Params[1] <> ' ' then
Params := ' ' + Params;
FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0);
with StartUpInfo do
begin
cb := SizeOf(TStartUpInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := Show;
end;
if not (CreateProcess(PChar(FileName), PChar(Params),
nil, nil, False, NORMAL_PRIORITY_CLASS,
nil, nil, StartUpInfo, ProcessInfo))
then
RaiseLastWin32Error;
end;
//Modified version of ExecuteProcess that works with
//a Command-Line Parameter
procedure ExecuteProcess( FileName,
Params : String;
Show : Integer );
var
StartUpInfo: TStartUpInfo;
ProcessInfo: TProcessInformation;
begin
Params := Trim(Params);
if Params<>'' then
FileName := FileName + ' ' + Params;
GetStartupInfo( StartUpInfo );
with StartUpInfo do begin
cb := SizeOf(TStartUpInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := Show;
end;
if not (CreateProcess( nil, PChar(FileName), nil,
nil, False, NORMAL_PRIORITY_CLASS, nil,
nil, StartUpInfo, ProcessInfo))
then
RaiseLastWin32Error; //From SysUtils Unit
end;
