AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Meldung vor dem Herunterfahren

Ein Thema von franktron · begonnen am 30. Sep 2009 · letzter Beitrag vom 1. Okt 2009
Antwort Antwort
Seite 1 von 2  1 2      
franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#1

Meldung vor dem Herunterfahren

  Alt 30. Sep 2009, 15:06
Wie kann ich sofort nachdem jemand bei XP den Herunterfahren Button Klickt eine Meldung von meinem Programm anzeigen lassen.

Mein Programm liegt unten im Tray.
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: Meldung vor dem Herunterfahren

  Alt 30. Sep 2009, 15:12
Du könntest eine Behandlungsroutine für WM_QUERYENDSESSION schreiben und dort die Message anzeigen. Wie sich XP dann verhält, weiß ich allerdings nicht.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#3

Re: Meldung vor dem Herunterfahren

  Alt 30. Sep 2009, 15:55
Also momentan habe ich das in onFormClosequery drin aber das kommt leider zu spät.

Ich will das sofort nach dem Klick haben (am besten)
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Meldung vor dem Herunterfahren

  Alt 30. Sep 2009, 15:58
Bevor Windows dein Programm informiert kannst du nicht reagieren
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von XXcD
XXcD

Registriert seit: 19. Sep 2006
581 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Meldung vor dem Herunterfahren

  Alt 30. Sep 2009, 15:59
Du musst die Message von Windows abfangen.
Windows sendet beim Shutdown an jede Anwendung die Nachricht, dass jetzt langsam mal Ende ist.
Und mein Vorschlag wäre jetzt noch, dass du ein Dienst verwendest, weil sonst wahrscheinlich die Anwendung beendet ist bevor die Message angezeigt wird.
  Mit Zitat antworten Zitat
franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#6

Re: Meldung vor dem Herunterfahren

  Alt 30. Sep 2009, 18:41
Also die Meldung kommt momentan aber leider zu spät,
also nach ca. 5-20 Sec.

Kann ich vielleicht meine Anwendung in der MessageQueue irgendwie nach oben kriegen so das meine Anwendung die erste ist die beenden wird.
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.163 Beiträge
 
Delphi 12 Athens
 
#7

Re: Meldung vor dem Herunterfahren

  Alt 30. Sep 2009, 19:06
die Nachricht ob heruntergefahren werden darf müßte eigentlich vor dem Runterfahren selber kommen und da wäre es theoretisch doch egal wann es bei dir vorbeikommt
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#8

Re: Meldung vor dem Herunterfahren

  Alt 1. Okt 2009, 09:06
Eben nicht.

Also ich habe folgendes Szenario
Ich Habe eine Zeiterfassung die unten im Tray Liegt wenn jetzt der Mitarbeiter den PC runterfährt und sich nicht abgemeldet hat soll die Zeiterfassung fragen ob sie ihn abmelden soll.

Aber jetzt kommt der "Böse User" und sagt PC herunterfahren und macht dann den Monitor aus und sieht die Meldung nicht mehr
deshalb soll die Meldung sofort nach dem Knopf Herunterfahren drücken kommen.
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.163 Beiträge
 
Delphi 12 Athens
 
#9

Re: Meldung vor dem Herunterfahren

  Alt 1. Okt 2009, 09:13
In diesem Fall: würde ich einfach abmelden

Na gut, ich hatte es noch nie beim Runterfahren getestet, da ich mein Programm da nur abschalte, aber beim Standby und Ruhezustand ist es zumindestens so und da hätte ich gedacht es wäre auch beim Runterfahren so
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#10

Re: Meldung vor dem Herunterfahren

  Alt 1. Okt 2009, 09:21
Ja aber was mach ich wenn der MA nur Neustarten oder eben mal neue Hardware einbauen will.
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:52 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