Rechner fährt nicht mehr herunter

[ManuMF]

Oder: Das hier übernehmen:

Delphi-Quellcode:

var CloseReally: Boolean = false;

// Dann deinen Code...

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := CloseReally;
  Form1.Hide;
end;

// und den von HuxXx

procedure TMainForm.WMQUERYENDSESSION(var msg: TMessage);
begin
  msg.Result := 1;
  CloseReally := true;
end;

Das sollte funktionieren.

[meg91]

ich hab das mal so ausprobiert und es hat nix genracht
habt ihr vllt noch ne Idee

[DGL-luke]

hast du die zweite prozedur auch als botschaftsmethode gebaut?

Du musst sie dann in der klassendeklaration der form so deklarieren:

procedure OnWMQueryEndSession(var Msg: TMsg); message WM_QUERYENDSESSION;

[meg91]

kannst du mir vielleicht nochmal den ganzen Source aufschreiben
ich check des net mit den botschaftsmethoden nich so ganz
bei mir kommen da immer Fehler

[ManuMF]

Was denn für Fehler? Sorry, der Wahrsager von Nebenan ist gerade im Urlaub...

[meg91]

bei mir kommt immer folgendes wenn ich mein Prog compilieren will:
[Fehler] Unit1.pas(2023): E2003 Undefinierter Bezeichner: 'Result'

[mkinzler]

Ist das ne Function, in der der fehler auftritt?

[ManuMF]

Hmm, ich denke, du hast was vergessen. Liegt wohl daran, dass du mehrere Code-Teile von hier einfach eingefügt hast, ohne sie für deinen Fall anzupassen.

Überprüfe folgendes: In der Unit ziemlich weit oben steht

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    // Hier steht jede Menge Zeug ;-)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

In der Zeile nach dem { Private-Deklarationen } sollte das hier stehen:
procedure WMQueryEndSession(var Msg: TMessage); message WM_QUERYENDSESSION; und irgendwo unten im Code dann

Delphi-Quellcode:

procedure TForm1.WMQueryEndSession(var Msg: TMessage);
begin
  Msg.Result := 1;
  CloseReally := true;
end;

Dabei ist wichtig, dass du den Namen deines Formulars anpasst, also wenn es nicht Form1 heißt, musst du es für den unteren Code-Teil in meinem Beitrag ändern.

[meg91]

super es funzt jetzt!
ich hatte die prozedur unter public und nicht unter private eingetragen

danke für euer schnelles Feedback