Hi,
Klappt nicht immer da es ggf. noch Nachfragen vom Programm geben kann zB.: "...Die Aktuellen Dateien speichern..." etc.
So gehts.:
Delphi-Quellcode:
// (* ungetested *)
procedure SendCloseTo(wndClass, wndName: PChar);
var _hWnd: HWND;
begin
_hWnd := FindWindow(wndClass, wndName);
if _hWnd <> 0 then SendMessage(_hWnd, WM_CLOSE, 0, 0);
end;
// Aufruf:
procedure TFormXYZ.ButtonXClick(...);
begin
// "Notepad" ist der Fensterklassenname des Notepad-Texteditors
// Der Fenstertitel heisst zu anfang genauso, kann sich aber nach
// dem speichern ändern. Also nicht verwechseln. ;-)
SendCloseTo('Notepad', nil);
end;
// Edit: so ists wohl besser.