Hi,
Zitat von
Angel4585:
Hast schonmal CanClose auf true gesetzt?
Habe es mal wie folgt erweitert...
Delphi-Quellcode:
procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if mbtnCon.Down then begin
if (not bolMainCanClose) and (not timClose.Enabled) then begin
mbtnCon.Click;
intCanClose:=0;
timClose.Enabled:=True;
end;
CanClose:=False;
Exit;
end;
frmSetup.SaveSetupExit;
CanClose:=True;
end;
Ergebniss ist leider das selbe...
Zitat von
Angel4585:
Welches Windows verwendest du und wie äussert sich das, dass es nicht funktioniert?
Windows XP SP3
Es funktioniert solange ich die Anwendung von Hand beende, drück ich im Windows auf herunterfahren geht zwar meine Anwendung zu aber der PC fährt nicht runter.
Dank im Voraus!
Gruß Frank