Programm das mit ShellExecute gestartet wurde wieder beenden

[Sharky]

Zitat von sakura:

Schwimm mal in die Code-Library, da findest Du ein Beispiel von Luckie zu CreateProzess - und dann halt WM_CLOSE, wie Tom schon eingetippt hat.

Bin schon dreimal hin geschwommen...

Ich habe mir Luckies Funktion RunProcess geschnappt und rufe das so auf:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
 programm : String;
begin
 if (OpenDialog1.Execute) then
  begin
  programm := OpenDialog1.FileName;
  RunProcess (PChar(programm), SW_SHOW, FALSE, @hWnd)
 end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 SendMessage (hWnd,WM_CLOSE,0,0);
end;

Tut aber nix. Sicher wieder ein riesen Denkfehler von mir ps:

P.S.: hWnd ist global als DWord deklariert!