Minimieren statt Beenden

[RomanK]

Ich rede vom Herunterfahren des Betriebsystems ...

Zitat von Mat:

als ich gestern meinen Recher ausmachen wollte, hat das doch tatsaechlich nicht funktioniert!!! scheinbar kann ich das doch nicht so machen.. (obwohl ich schwoeren kann, das es bei meinem Test-Neustart noch geklappt hat)

jemand eine andere idee?

[Stanlay Hanks]

Aber im Normalfall sollte daoch ein Programm vor dem Ausschalten des Computers schon beendet sein, oder?

[RomanK]

was meinst du damit ... dass es vor dem Herrunterfahren von Hand geschlossen werden soll?

[Stanlay Hanks]

genau das...oder will er das nicht?

[RomanK]

Hoi Stanlay,
er will, dass das Programm wenn man es mit [x] oder ALT+F4 schließt, nicht geschlossen wird sondern in die TNA minimiert wird, also muss er im OnCloseQuery CanClose auf False stellen. Aber wenn das Betriebsystem den Close-Aufruf sendet soll das Programm ja beendet werden. So wie der Code momentan ist muss er es jedes Mal von Hand schließen, sonst fährt das Betriebsystem nicht normal herrunter.

[Stanlay Hanks]

Dann müsste er quasi die Message von Windows abfangen, damit CanClose auf true gesetzt werden kann, oder?

[Stanlay Hanks]

Was mir grade noch einfällt. Ich weiß nicht ob das geht. Aber man könnte doch nach jedem Minimieren canClose wieder auf true setzen, dann dürfte es doch auch keine Probleme mit dem Herunterfahren geben.

[Mat]

wenn ich nach dem minimieren CanClose auf True setze, wuerde das Programm sich erst minimieren und danach beenden...


im uebrigen soll das Programm ja die ganze Zeit laufen, wenn Windows an ist, daher wird es wohl keiner vorher ausmachen wollen..

ueber den taskmanager kann man das mit meiner variante schon noch schliessen, nur halt beim runterfahren bleibt das programm an (es minimiert sich eben nur) und windows faehrt nicht runter.

ich guck mir mal den Code in dem Post an.


Mat

[RomanK]

Zitat von FuckRacism:

Hoi Mat,
schau dir mal diesen Beitrag an ... das sollte doch eigentlich helfen:
http://www.delphipraxis.net/viewtopic.php?t=5291

@Stanlay und Mat ... schaut euch mal den Link an ...
@Mat, wenn du damit nicht weiterkommst melde dich nochmal ...

[Mat]

mmh.. mit dem link hat's irgendwie nich gefunzt..


ich hab mir heute mal cooltrayicon angeschaut.. in der demo davon gab's auch diese funktion, die hab ich uebernommen und es funktioniert..
(versteh das zwar nich unbedingt, aber es geht.

Delphi-Quellcode:

  private
    SessionEnding: Boolean;
    procedure WMQueryEndSession(var Message: TMessage); message WM_QUERYENDSESSION;

procedure TForm_Main.WMQueryEndSession(var Message: TMessage);
begin
  SessionEnding := True;
  Message.Result := 1;
end;

meine OnCloseQuery-Funktion sieht dann so aus:

Delphi-Quellcode:

procedure TForm_Main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
      msg: Integer;
     text: String;
  askexit: Boolean;
begin

  askexit := True;
  if reg_minonx and (not ExitButtonWasClicked) then
    askexit := False;

  if askexit then
    begin
      text := 'Wollen Sie wirklich beenden?';
      msg := Application.MessageBox(Pointer(text), 'Beenden', MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION);

      if msg = IDYES then
        CanClose := True
      else
        CanClose := False;
    end
  else
      CanClose := False;

  if reg_minonx and (not ExitButtonWasClicked) then
    Application.Minimize;


  ExitButtonWasClicked := False;

  if SessionEnding then
    CanClose := True;


end;

wenn ich jetzt windows beende, wird nicht das Programm einfach geschlossen, ohne Abfrage, einfach so. Genau wie ich es haben will



Mat