Den "X" - Button simulieren

[Pr0g]

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;