// FROM: hallvard@falcon.no (Hallvard Vassbotn)
unit Tst2u;

Interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
    Controls, Forms, Dialogs, Grids, DBGrids, Db, dbtables;

type
  TForm1 = class (TForm)
    DataSource1 : TDataSource;
    Table1      : TTable;
    DBGrid1     : TDBGrid;
    procedure FormCreate (Sender: TObject);
  private
    { private declarations }
    function HookProc (var message: TMessage) : Boolean;
  public
    { public declarations }
  end;

var
  Form1 : TForm1;

implementation

{$R *.DFM}
const
  FlagFileName = 'C:\Flag.Fil';

procedure CreateFlagFile;
var
  f : System.Text;
begin
  System.Assign (f, FlagFileName);
  System.Rewrite (f);
  WriteLn (f, 'This is a dummy flag file');
  System.Close (f)
end;


procedure KillFlagFile;
var
  f : File;
begin 
  System.Assign (f, FlagFileName); 
  System.Erase (f)
end; 


procedure MyExitProc; 
  far; 
begin 
  KillFlagFile
end; 


procedure TForm1.FormCreate (Sender: TObject); 
begin 
  Application.HookMainWindow (HookProc)
end; 


function TForm1.HookProc (var message: TMessage) : Boolean; 
begin 
  result := False; 
  if message.Msg = WM_ENDSESSION then 
  begin 
    if WordBool (message.WPARAM) then 
    begin 
      { Windows is closing down - clean up!! } 
      
      { This should execute all ExitProcs, close windows and call destructors.. }
      Halt
     
      { This should close things down properly,                                 }
      { but do we have enough time to handle any posted messages before Windows }
      { is already down??  This will result in a PostQuitMessage that might     }
      { never arrive!                                                           } 

      { This doesn't always work - avoid it } 
      {      Close;}      
    end
  end
end; 


initialization 
  CreateFlagFile; 
  AddExitProc (MyExitProc)

end.