Wie das Blockieren beim Herunterfahren verhindern/umgehen?

[helgew]

Zitat von Schucki:

Also selber die MSG abfangen und abarbeiten, dann wenn es fertig ist erneut sdiese MSG des herunterfahrens verschicken?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const
  WM_DENYSHUTDOWN = WM_USER + $AB;

type
  TForm1 = class(TForm)
    procedure FormDenyShutdown(var msg: TMsg); message WM_DENYSHUTDOWN;
  protected
    procedure WndProc(var Message: TMessage); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WndProc(var Message: TMessage);
const
  LONGBOOL_FALSE : Cardinal  = 0;
  LONGBOOL_TRUE  : Cardinal  = 1;
begin
  if (Message.Msg <> WM_QUERYENDSESSION) then
    begin
      inherited WndProc(Message)
    end
  else
    begin
      SendMessage(Form1.Handle,WM_DENYSHUTDOWN,0,0);
      Message.Result := LONGBOOL_FALSE;
    end;
end;

procedure TForm1.FormDenyShutdown(var msg: TMsg);
begin
  Application.MessageBox(
          'We can''t stop here. This is bat country!',
          'Cannot stop here',
          MB_ICONWARNING or MB_OK);
end;

end.

Komplizierter wirds nicht Ich würde aber nicht mehr mit timern arbeiten, weil ich dir an der Stelle nicht garantieren kann, dass zum Zeitpunkt des Runterfahrens (dein Programm wird ja nicht als erstes gefragt) alles noch so abgearbeitet wird und einem timing folgt, wie du dir das vorstellst. Um als erster benachrichtigt zu werden, ob die Arbeitsstation heruntergefahen wird, musst du die Funktionalität in eine .dll packen und mit dem Modulhandle einen globalen message hook einrichten (keine gute Praxis ...). Wenn du das wirklich machen willst, kannst du hier einen Überblick über die Vorgehensweise bekommen.


Edit: dass einem aber auch immer erst danach noch was einfällt...
Edit: nach Hinweis unten modifiziert