Delphi-PRAXiS - Delphi Den "X"

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi Den "X" - Button simulieren (https://www.delphipraxis.net/65158-den-x-button-simulieren.html)

Den "X" - Button simulieren

Hi...

also wenn ein programm läuft und man auf das "X" oben rechts klickt, dann ist es doch selbstverständlich, dass dieses programm beendet wird.

kann ich dieses klickes des "X" von einem anderen (also von mir entwickelten) programm simulieren. das heisst, mein programm beendet dieses programm...

eine variante ist, dass ich die liste aller prozesse bekomme und wenn das programm, was ich beenden will, in der liste ist, dann wird es gekillt. <- sowas will ich nicht machen!

vielleicht habt ihr ja ne idee und hoffe ihr habs verstanden, was ich meine...

mfg

Re: Den "X" - Button simulieren

Kleines Beispiel um ein Notepad Fenster zu schließen:

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  lWnd: HWND;

begin

  lWnd := FindWindow('notepad', nil);

  SendMessage(lWnd, WM_CLOSE, 0, 0);

end;