Dann hättest Du weiterlesen sollen.
Dann hättest Du irgendwann gesehen, dass die Funktion sowieso nicht das Gelbe vom Ei ist. Alternativ wird auf WM_CLOSE verwiesen.
Und das geht beispielsweise so (wenn man Notepad beenden möchte):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Handle: HWND;
begin
Handle := FindWindow('
Notepad',
nil);
if Handle <> 0
then
SendMessage(
Handle, WM_CLOSE, 0, 0);
end;