Rechner fährt nicht mehr herunter

[meg91]

Hallo
ich habe ein Programm geschrieben, welches beim minimieren oder schließen in die TNA wandert.
Es startet automatisch beim Systemstart.
Nach einem Testlauf habe ich bemerkt, dass mein Rechner nicht mehr runterfährt, wenn mein Prog läuft (ich klick auf Start -> Ausschalten und dann in dem kleinen blauen Fenster wieder Ausschalten, dann verschwiendet es wieder und der nomale Dektop kommt wieder)
wenn ich das Programm beende und ihn wieder ausschalte fährt mein PC wieder ganz normal runter

ich geh mal davon aus, das sich mein Prog beim schließen immer minimiert und sich nur über das Kontextmenü über dem TNA Icon schließen lässt
kann mir jemand nen Rat geben wie ich mein Problem lösen könnte

Gruß
Markus

[mkinzler]

Dein Programm scheint die höfliche Bitte des Betriebssytem sich zu Beenden nicht nachzukommen.

[faux]

Hallo!

Hast du das Event OnClose oder OnCloseQuery benutzt? Wenn ja, kann es sein, dass dein Programm da drinnen hängen bleibt und das Timout fürs killen von hängengebliebenen Applikationen beim herunterfahren sehr hoch gesetzt ist, im Windows.

Grüße
Faux

[EDatabaseError]

:gruebel: Windows sollte es doch fertig bringen dein Programm auszubekommen. Das schafft es ja auch bei Norton ;-)

Du könntest den Shutdown abfangen und dann dein Programm beenden

[HuxXx]

Hi...

vllt könnte dir das helfen:

Dein Programm reagiert ja drauf, wenn der Rechner runterfährt, also einfach das hier in die WMQUERYSESSION Procedur einfügen.

Delphi-Quellcode:

procedure TMainForm.WMQUERYENDSESSION(var msg: TMessage);
begin
// In die TNA minimieren.
  msg.Result := true;


// bzw. das Ding beenden.
Halt;
end;

Greetz by Hux

// Edit: arrrgh, das [b] funktioniert im CodeTeil ja garnicht -.-

[faux]

@HuxXx: Es muss doch auch ohne zusätzlichen Code zu lösen sein. Zuerst sollte man mal feststellen, wieso das Probelm überhaupt auftritt. Einfach so, mal irgendeinen Code in die Applikation zu packen, hat noch keinen Sinn, wenn man nichtmal weiß, wieso der Fehler auftritt.

Grüße
Faux

[meg91]

ich hab unter CloseQuery folgendes rein geschriben

Delphi-Quellcode:

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

[faux]

Zitat:

Zitat von meg91

ich hab unter CloseQuery folgendes rein geschriben

Delphi-Quellcode:

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

Jup! Daran liegts. ;)

Beim herunterfahren fordert Windows deine Applikation auf, sich zu beenden, deine Applikation sagt aber nur: Nein. ;)
Das liegt daran, dass du CanClose auf False setzt.
Das OnCloseQuery Event ist dazu da, Abfragen vor dem Schließen zu realisieren, zum Beispiel "Wollen Sie wirklich beenden" oder "Wollen Sie Speichern?" oder so. Du "missbrauchst" dieses Event zum Minimieren in den Tray. ;)

Grüße
Faux

[meg91]

Und wie kann ich das dann richtig machen?

[richie]

Event weglassen. :zwinker:

[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:

Delphi-Quellcode:

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...:roll:

[meg91]

bei mir kommt immer folgendes wenn ich mein Prog compilieren will:

Delphi-Quellcode:

[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:

Delphi-Quellcode:

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 :thumb:

danke für euer schnelles Feedback