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