Externes, Eigenes Programm beenden

[Neutral General]

Ich würde gerne ein von mir geschriebenes Programm mit einem anderen Programm schließen !
z.B indem ich auf einen Button klicke !
Ich hab nur keine Ahnung wie

[Luckie]

Such das Fenster mit FindWindow und schicke ein WM_CLOSE an das Fenster. Da es auch ein programm von dir ist, kannst du ja eine möglichst einmalige Fensterklasse vergeben und bist so nicht, auf den sich eventeull ändernden, Titel angewiesen.

[Neutral General]

ähm könntest du mir vielleicht ein Beispiel geben ?

[Luckie]

Delphi-Quellcode:

var
  hWnd: THandle;
begin
  hWnd := FindWindow('MeineFensterKlasse', nil);
  if hWnd <> 0 then
    Sendmessage(hWnd, WM_CLOSE, 0, 0)
  else
    ShowMessage('Fenster nicht gefunden.');

Die Fensterklasse leitet Delphi standardmäßig vom Namen der Klasse TForm ab. Also entweder ist es TForm1 oder nur Form1, da bin ich jetzt nicht sicher.

[Neutral General]

OK, Danke es funktioniert