anderes Programm beenden

[Gambit]

Also folgendermaßen funzt es jetzt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  StartupInfo.cb := Sizeof(TStartupInfo);
  if CreateProcess(nil,                // Anwendungsname
                   PChar(edit1.text),  // Parameter
                   nil,                // Security
                   nil,                // Security
                   False,
                   NORMAL_PRIORITY_CLASS, // Priorität
                   nil,                   // Environment
                   PChar(edit2.text),     // Verzeichnis
                   StartupInfo,
                   ProcessInfo) then begin
  end else Showmessage('Fehler!');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TerminateProcess(ProcessInfo.hProcess,0);
  Showmessage('Prozess beendet!');
end;

Aber wie müsste denn meine Anweisung in Button2Click ausehen, wenn ich den Prozess "kontrolliert" beenden möchte?

Gruß

Gambit