Wie das Blockieren beim Herunterfahren verhindern/umgehen?

[Schucki]

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