Forum: Win32/Win64 API (native code)
by ASM,
24. Okt 2013
Nein. OnCloseQuery ist diesen vorgeschaltet.
OnClose und OnDestroy werden allerdings dann nicht mit besonderer Behandlung benötigt, solang es ausschließlich um das von Dir beschriebene Problem geht.
Das "muss" hängt davon ab: Müssen beim Beenden des Programms abschließend noch instanziierte Objekte freigegeben und/oder evt. geöffnete Files etc. geschlossen werden, dann muss das natürlich...
Forum: Win32/Win64 API (native code)
by ASM,
24. Okt 2013
Versuche es nach folgendem Muster (entscheidend ist die Verwendung des Var-Parameters "CanClose"):
function TForm1.WarnOnClose: Boolean;
var
Wnd: HWnd;
begin
result := true;
Wnd := FindWindow('notepad', nil);
if Wnd <> 0 then
begin
result := MessageDlg('Notepad is still running! Really quit Programm?',