Antwort von
nach 8 Minuten
hilfreich
Besseres Beispiel
Dieses Snippet zeigt aus einer Unit die ich mal gemacht hab zeigt die Sache besser:
<CODE>
function ExecuteProcess(CmdLine : String) : boolean;
{ Create an additional process but continue with current process also }
var
StartUpInfo : TStartupInfo;
ThisProcessInfo : TProcessInformation;
begin
Fillchar(StartUpInfo, sizeof(StartUpInfo), 0);
With StartUpInfo do
begin
cb := sizeof(StartUpInfo);
dwflags := STARTF_USESHOWWINDOW;
wShowWindow := SW_SHOWNORMAL;
end;
Result := CreateProcess(nil,
pchar(CmdLine),
nil,
nil,
false,
0,
nil,
nil,
StartUpInfo,
ThisProcessInfo);
end;
</CODE>