Shutdowntool - bitte testen

[ManuMF]

Also, ich finde das Programm ganz nett.

Aber ich würde die Meldung beim Beenden des Programms nur zeigen, wenn wirklich eine Aktion ausgeführt wurde:

Delphi-Quellcode:

procedure TMain.BtnCloseClick(Sender: TObject);
begin
  if (Actionwaiting.Enabled) then begin     // Nur wenn der Timer enabled ist
    if (MessageDlg('Wollen Sie wirklich... ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
      Application.terminate;     // Ich benutze immer diesen Befehl
  end
  else
    Application.terminate;     // Wenn der Timer nicht aktiv ist, direkt beenden
end;

Das Ganze hat aber einen Haken: Wenn das Programm über das "X" beendet wird, gibt es keine Meldung. Aber das kann folgendermaßen über onCloseQuery behoben werden:

Delphi-Quellcode:

procedure TMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if (Actionwaiting.Enabled) then begin
    case MessageDlg('Wollen Sie wirklich... ?', mtConfirmation, [mbYes, mbNo], 0) of
      mrYes: application.Terminate;
      mrNo: CanClose := false;
    end;
  end;
end;

Gruß,
ManuMF