Windows lukker program

Er det kun når windows lukker beskeden skal komme?

Hvis det kun er når windows lukker så indsæt denne funktion:

private
    { Private declarations }
    WindowsLukker : boolean; husk at sætte til false
        procedure WMQUERYENDSESSION(var Message: TMessage); message WM_QUERYENDSESSION;
.
.
procedure TNrjMainForm.WMQUERYENDSESSION(var Message: TMessage);
begin
  WindowsLukker:=true;
  inherited;
end;

I din FormCloseQuery kan du så skrive:

procedure TForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
    if WindowsLukker and (Application.MessageBox(PChar('Vis du gemme dokumentet?'),'Spørgsmål',MB_YESNO or MB_ICONQUESTION)=IDYES) then
  begin
  gem dokument

  end;
end;

jaa :)

Hva så vis den skal gemme dokumentet automatisk ?

Prøv at kigge på det eksempel

http://www.swissdelphicenter.ch/en/showcode.php?id=351

Du skriver:

    { Private declarations }
    WindowsLukker : boolean; husk at sætte til false
        procedure WMQUERYENDSESSION(var Message: TMessage); message WM_QUERYENDSESSION;

Hvor skal "Flase" hen ?

Seriøst hvordan giver jeg point!?

I din forms OnCreate kan du skrive:
WindowsLukker:=false;

Men prøv også at kikke i hjælpen for WM_QUERYENDSESSION, der står en masse godt.