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.