Hallo Choose,
da hast Du nicht genau gelesen. Ich habe die funktion ShellExecuteEx benutzt und nicht ShellExecute. Da Du so nett bist und mir geholfen hast, bekommst Du gleich noch den Code von mir:
Delphi-Quellcode:
var Info: TShellExecuteInfo;
FileName :
string;
begin
FileName := '
c:\2\Project2.exe';
with Info
do begin
cbSize := SizeOf(Info);
fMask := SEE_MASK_NOCLOSEPROCESS;
lpVerb := '
open';
lpFile := pChar(FileName);
lpParameters :=
nil;
lpDirectory :=
nil;
nShow := 0;
hInstApp := 0;
lpIDList :=
nil;
end;
{ Call indows to display the properties dialog. }
ShellExecuteEx(@Info);
//Das Handle des Prozesses auslesen
handle2 := info.hProcess;
end;
Beste Grüße
Ulrich