Re: Wie das Blockieren beim Herunterfahren verhindern/umgehe
Hi!
Danke für Eure Antworten. Ich denke das geht in die richtige Richtung obwohl es noch nicht zu 100% läuft. Ich kann die einzelnen Msg. filtern und dann darauf reagieren. Die ganzen OnClose und OnCloseQuery Events vom Hauptformular habe ich nun gelöscht. Entweder hier oder dort... ;) Das wird geschickt wenn man auf mbtClose drückt...
Delphi-Quellcode:
... Msg abhandeln ...
procedure TfrmMain.mbtnCloseClick(Sender: TObject);
begin SendMessage(frmMain.Handle,WM_CLOSE,0,0); end;
Delphi-Quellcode:
... und der Timer sieht so aus...
procedure TfrmMain.WndProc(var Message: TMessage);
const LONGBOOL_FALSE : Cardinal = 0; LONGBOOL_TRUE : Cardinal = 1; begin if (Message.Msg = WM_CLOSE) then begin Message.Result := LONGBOOL_FALSE; // ShowMessage('Schließen sollst du ;-)'); if comUnit.PortOpen then begin if (not bolMainCanClose) and (not timClose.Enabled) then begin // ShowMessage('Jaja nur erst vom Gerät abmelden!'); mbtnConnect.Click; timClose.Enabled:=True; end; end else begin ShowMessage('So, hab mich fein abgemeldet... close Ok!'); bolMainCanClose:=True;; end; if bolMainCanClose then Close; end else if (Message.Msg = WM_QUERYENDSESSION) then begin bolShutDown:=True; if comPtc.PortOpen then begin ShowMessage('Jetzt noch nicht, hab was dagegen !'); intSavW:=Message.WParam; intSavL:=Message.LParam; mbtnClose.Click; end else begin Message.Result := LONGBOOL_TRUE; ShowMessage('Jetzt schon, und Tschüss...'); end; end else // if (Message.Msg = WM_ENDSESSION) then begin // Message.Result := LONGBOOL_FALSE; // ShowMessage('Dann beende mal jetzt!'); // end else begin inherited WndProc(Message) end; end;
Delphi-Quellcode:
Nun es klappt noch nicht... ein Beantworten auf WM_QUERYENDSESSION mit TRUE sorgt dafür das die Anwendung sofort zugeht ohne das sie sich bei dem angeschlossenen Gerät abmeldet. :-( Also muß ich min 1x mit FALSE antworten. Damit ist dann aber das Herunterfahren abgebrochen :-( und müßte neu ausgelöst werden. Wäre auch nicht so schlimm denke ich wenn man den wüste was vorher von Windows bei der 1. WM_QUERYENDSESSION gefordert wurde. Stanby, Shutdown oder Logoff???
procedure TfrmMain.timCloseTimer(Sender: TObject);
begin inc(intCanClose); if (intCanClose >= 10) or ((not bolDeiniRun) and (not bolForceDeini)) then begin timClose.Enabled:=False; bolMainCanClose:=True; if bolShutDown then SendMessage(frmMain.Handle, WM_QUERYENDSESSION, intSavW, intSavL); mbtnClose.Click; end; end; Die Info hab ich noch nicht... so dacht ich nun das ich die WM_QUERYENDSESSION das 1. mal einfach nicht beantworte und dann selber nochmal auslöse und diese dann mit TRUE beantworte. Das geht aber wohl auch nicht... Windows wertet wohl pro MSG an alle auch mit einer sofortigen Antwort. Und wenn die nicht kommt ist es FALSE? Bei dem angeschlossenen Gerät muß ein bestimmtes Protokoll eingehalten werden, das geht nunmal nicht direkt mit 3 Zeilen die man ihm schickt. Das muß beim Beenden abgemeldet werden, das dauert ca. 3 Sekunden. Erst wenn das passiet ist, darf man das Prg Beenden. Funktioniert 1A bei einem manuellen Click auf mbtnClose oder ALT+F$ aber das über Herunterfahren nicht. Was könnte man noch versuchen, gibt es noch einen anderen Lösungansatz von einem erfahrenen Entwickler als mich? :glaskugel: Danke, Gruß Frank |
Re: Wie das Blockieren beim Herunterfahren verhindern/umgehe
Als Ergänzung: Grundsätzlich ist die Vorgehensweise, dass du im ENDSESSION (nicht im QUERYENDSESSION) deine Verarbeitung zum Herunterfahren durchführst. QUERYENDSESSION dient eigentlich ausschließlich dazu, das Herunterfahren abzubrechen.
Wichtig ist, dass du einigermaßen schnell bist. Firefox hat beispielsweise früher grundsätzlich beim Herunterfahren nichts gemacht (Session ist in den AutoRecovery-Daten gespeichert), so dass die Daten beim nächsten Start wieder da waren. Das geht schnell, normales Beenden von Firefox ist sehr langsam (wenn viele Tabs offen sind). Wenn du langsam bist, kommt ab Vista relativ schnell ein abgedunkelter Bildschirm, auf dem deutlich zu sehen ist, dass DU den Start verzögerst. Der Benutzer kann dann eiskalt auf "Sofort herunterfahren" klicken und du hast keine Chance mehr, auf irgendwas zu reagieren. Aber deine ENDSESSION-Behandlung läuft immer noch weiter, auch wenn der Bildschirm abgedunkelt ist. Ab 7 hast du sogar die Möglichkeit, einen Text anzugeben, der vom abgedunkelten Bildschirm für deine Anwendung angezeigt wird (Beispiel: VMWare Workstation 7 zeigt an, dass es gerade eine VM runterfährt), so dass der Benutzer dich vielleicht noch nicht abwürgt. Sofern du immer noch schneller fertig bist als die letzten Programme, die geschlossen werden, funktioniert das eigentlich auch ganz gut. Insofern ist, meiner Meinung nach, die korrekte Vorgehensweise, einfach im ENDSESSION dein Ding durchzuziehen und zu hoffen, dass es reicht. Wenn es nicht reicht, hat der Benutzer ab Vista explizit dein Programm abgeschossen. Das kann er natürlich sowieso, auch ohne Herunterfahren. |
Re: Wie das Blockieren beim Herunterfahren verhindern/umgehe
Komme erst heute Abend dazu damit weiter zu machen.
In den letzten Tagen war ich auf der Suche nach der Message die man abfangen muß wenn ein User die Anwendeung mit der rechten Maustatste aus der Taskleiste beenden möchte. Das ist mir noch nicht gelungen herauszubekommen. Weiß einer von Euch wie die heist? WM_CLOSE ist es nicht :-( Danke im Voraus!!! Gru0 Frank |
Re: Wie das Blockieren beim Herunterfahren verhindern/umgehe
IIRC ist das WM_SYSCOMMAND mit SC_CLOSE.
|
Re: Wie das Blockieren beim Herunterfahren verhindern/umgehe
Tch es gelingt mir nicht die MSG zu bekommen... habe folgenes gemacht...
Delphi-Quellcode:
Und dann...
...
private procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; ...
Delphi-Quellcode:
Aber wenn ichnun einen BP bei "if Msg.CmdType = SC_CLOSE then begin" setze wird der nie angefahren, meine Anwendung geht einfach nur zu :-(
procedure TfrmMain.WMSysCommand(var Msg: TWMSysCommand);
begin if Msg.CmdType = SC_CLOSE then begin if not bolMainCanClose then mbtnClose.Click; Msg.Result := 0; end; Inherited; end; Was hab ich da wohl übersehen? Gruß Frank |
Re: Wie das Blockieren beim Herunterfahren verhindern/umgehe
Tja, weiß ich auch nicht. Kleiner Gegentest bei mir:
Delphi-Quellcode:
Über die Taskleiste, über das "X", über ALT-F4, immer sagt das Programm mir Tschüss wie erwartet (Win 7 Home Premium).
procedure TFormTest.WMSysCommand(var Msg: TWMSysCommand);
begin if Msg.CmdType = SC_CLOSE then ShowMessage('Tschüss'); inherited; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:36 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz