AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Ruhezustand / Hibernate unter Windows 7 und Windows HomeServer 2011
Thema durchsuchen
Ansicht
Themen-Optionen

Ruhezustand / Hibernate unter Windows 7 und Windows HomeServer 2011

Ein Thema von Bambuti2000 · begonnen am 10. Aug 2012 · letzter Beitrag vom 28. Aug 2012
Antwort Antwort
Benutzerbild von Bambuti2000
Bambuti2000

Registriert seit: 11. Okt 2007
Ort: Troisdorf
44 Beiträge
 
Delphi XE2 Architect
 
#1

Ruhezustand / Hibernate unter Windows 7 und Windows HomeServer 2011

  Alt 10. Aug 2012, 18:34
Hallo Leute,

bin jetzt schon seit zwei Tagen dran, und bekomme das Problem einfach nicht in den Griff.
Folgendes Problem (welches auch schon oft diskutiert wurde aber leider keine Lösung bringt) habe ich:
Vor dem Ruhezustand oder Standby soll noch ein Script ausgeführt werden, welches diverse andere Geräte im Netzwerk herunterfährt bzw. auch in Ruhezustand versetzt.
Unter Windows XP bekomme ich auch die BROADCAST_MESSAGE für die Anfrage zum Standby und kann soweit auch noch weiter aggieren, aber unter Windows 7 und HomeServer 2011 wird nur PBT_APMSUSPEND gesendet, und bevor ich das Abschalten des Systems (weder mit BROADCAST_QUERY_DENY noch mit ES_AWAYMODE_REQUIRED) verhindern kann ist es auch schon aus. Somit kann ich natürlich auch keine andern Programme oder Skripte mehr starten.

Ich hoffe dass das einigermassen verständlich klingt?!?!

Also, kurz ausgedrückt,
ich muss unter Windows 7 noch etwas starten bevor der Hibernate-/Suspend-Modus eintritt.
Da dies vermutlich nur geht, wenn ich den Vorgang für meine Ausführung unterbreche, benötige ichetwas um den Hibernate/Suspend abzubrechen bzw. pausieren zu lassen.

Damit ihr's testen könnt, hier mein Quelltext:
Delphi-Quellcode:
const
  ES_SYSTEM_REQUIRED = DWORD($00000001);
  {$EXTERNALSYM ES_SYSTEM_REQUIRED}
  ES_DISPLAY_REQUIRED = DWORD($00000002);
  {$EXTERNALSYM ES_DISPLAY_REQUIRED}
  ES_USER_PRESENT = DWORD($00000004);
  {$EXTERNALSYM ES_USER_PRESENT}
  ES_CONTINUOUS = DWORD($80000000);
  {$EXTERNALSYM ES_CONTINUOUS}
  ES_AWAYMODE_REQUIRED = DWORD($00000040);
  {$EXTERNALSYM ES_AWAYMODE_REQUIRED}

type
  EXECUTION_STATE = DWORD;

function SetThreadExecutionState(esFlags: EXECUTION_STATE): EXECUTION_STATE; stdcall; external 'kernel32.dll';

procedure WndProc(var MyMessage: TMessage);
begin
  if (MyMessage.Msg = WM_POWERBROADCAST)
  or (MyMessage.Msg = WM_POWER) then
  begin
    {*** die ganzen MESSAGES hab ich mal zum Testen mit aufgenommen... ***}
    if (MyMessage.WParam = PBT_APMQUERYSUSPEND)
    or (MyMessage.WParam = PWR_SUSPENDREQUEST)
    or (MyMessage.WParam = PBT_APMQUERYSTANDBY)
    or (MyMessage.WParam = PBT_APMSUSPEND)
    or (MyMessage.WParam = PBT_APMSTANDBY)
    or (MyMessage.WParam = PBT_POWERSETTINGCHANGE)
    or (MyMessage.WParam = PBT_APMPOWERSTATUSCHANGE) then
    begin
      {*** hier würde ich gerne Pause machen ***}
      SetThreadExecutionState(ES_AWAYMODE_REQUIRED);
      MyMessage.Result := BROADCAST_QUERY_DENY;

      {*** das zuvor gewählte Programm wird ausgeführt, aber halt eben erst zu spät ***}
      {*** und der Standby wird einfach knallhart fortgesetzt ***}
      if (SelectEdt1.Text <> EmptyStr) then
        ShellExecute_AndWait(SelectEdt1.Text, SelectParamEdt1.Text);

      {*** nach erledigter Arbeit soll das System einfach da weitermachen, wo ich es unterbrochen habe ***}
      //MyMessage.Result := 1;
      //SetThreadExecutionState(ES_CONTINUOUS);
    end
    else
      if (MyMessage.WParam = PBT_APMRESUMECRITICAL)
      or (MyMessage.WParam = PBT_APMRESUMESUSPEND)
      or (MyMessage.WParam = PBT_APMRESUMESTANDBY)
      or (MyMessage.WParam = PBT_APMRESUMEAUTOMATIC) then
      begin
        {*** und hier wird ein anderes Programm beim RESUME ausgeführt, klappt prima ***}
        if (SelectEdt2.Text <> EmptyStr) then
          ShellExecute_AndWait(SelectEdt2.Text, SelectParamEdt2.Text);
      end;
    end;
  inherited WndProc(MyMessage);
end;
Stefan
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#2

AW: Ruhezustand / Hibernate unter Windows 7 und Windows HomeServer 2011

  Alt 10. Aug 2012, 19:34
Geht nicht.
Wie hier beschrieben: http://blogs.msdn.com/b/oldnewthing/...16/533250.aspx
Hast du ungefähr 2 Sekunden Zeit um etwas zu tun.
Früher (unter XP) war das mal anders, aber mit Vista kam die Philosophie
"Es wird gemacht was der User sagt, auch wenn die Programme rumjammern" zum tragen
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#3

AW: Ruhezustand / Hibernate unter Windows 7 und Windows HomeServer 2011

  Alt 10. Aug 2012, 22:08
ShutDownBlockReasonCreate

Info:
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
.
http://bartdesmet.net/blogs/bart/arc...n-C_2300_.aspx

Geändert von hathor (10. Aug 2012 um 22:12 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Dalai
Dalai
Online

Registriert seit: 9. Apr 2006
1.682 Beiträge
 
Delphi 5 Professional
 
#4

AW: Ruhezustand / Hibernate unter Windows 7 und Windows HomeServer 2011

  Alt 10. Aug 2012, 22:53
Ich empfehle einen anderen, einfacheren Weg: Gerät(e), die runtergefahren werden sollen, pingen in Intervallen die fraglichen anderen Geräte an und fahren sich bei Nichtreaktion selbst herunter, also genau umgekehrt wie du es bisher machst. Das funktioniert ganz brauchbar und sogar OS-übergreifend, erfordert natürlich ein paar Kenntnisse entweder im Schreiben von Skripten oder Programmieren (letzteres sollte ja kein Problem sein ); es gibt bestimmt auch fertige Programme/Skripte für diese Variante (hab keines zur Hand, weil ich es nicht brauche).

MfG Dalai
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#5

AW: Ruhezustand / Hibernate unter Windows 7 und Windows HomeServer 2011

  Alt 11. Aug 2012, 21:20
Mehr Infos:

Shutdown Changes for Windows Vista
- differences between shutdown on Windows Vista and Windows XP
- gilt auch für WIN 7

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
  Mit Zitat antworten Zitat
Benutzerbild von Bambuti2000
Bambuti2000

Registriert seit: 11. Okt 2007
Ort: Troisdorf
44 Beiträge
 
Delphi XE2 Architect
 
#6

AW: Ruhezustand / Hibernate unter Windows 7 und Windows HomeServer 2011

  Alt 13. Aug 2012, 13:31
Hi alle zusammen,

erstmal Danke für eure Antworten...

Geht nicht, gibt's nicht! Dachte ich bis jetzt immer, aber auch nach nun nochmals mehreren Tagen voll Tests und Recherchen, komme ich langsam an meine Grenzen und bin tief betroffen keine Lösung gefunden/geschaffen zu haben.

Leider kann "ShutDownBlockReasonCreate" wohl auch kaum auf ein "nicht Herunterfahren" reagieren und ist somit für Standby/Hibernate unpassend.

Ich werde wohl oder über die Variante von Dalai (nichts gegen die Idee, ich dachte nur ich könnte alles vom Server aus steuern) in Betracht ziehen.

Falls es allerdings doch jemandem gelingen sollte, wäre ich über eine kurze Info oder ein paar Tips nicht unerfreut.

Danke nochmals...
Stefan
  Mit Zitat antworten Zitat
sansimarkus

Registriert seit: 15. Dez 2011
17 Beiträge
 
Delphi XE2 Architect
 
#7

AW: Ruhezustand / Hibernate unter Windows 7 und Windows HomeServer 2011

  Alt 14. Aug 2012, 11:23
Mit VisualStudio2012 und den KMDF-Templates kannst du dir (auch ohne große c++ Kenntnisse) einen Treiber kompilieren der Shutdown und Hibernate warten lässt. Das bringt dir beim Shutdown zwar nix wenn jemand auf "Sofort Herunterfahren" klickt, aber ansonsten kannst du damit genau das machen was du brauchst. In den Templates von den PnP-Treibern sind schon fertige Codesnippets dafür - ist nur ein wenig Sucharbeit. Der Haken dabei ist, dass du zum installieren des Treibers einmal in den Debug-modus von Windows musst sofern die Zielplatform Windows7/Server2008 64bit ist.


Edit: ansonsten ließe sich mit einem Treiber auch zwShutDownSystem und zwHibernateSystem aus der ntkernel.exe hooken - aber da kommts dann darauf an wie Schmerzbefreit du beim debugging bist, denn das ist ne haarige Angelegenheit, wie mit allen undokumentierten API Funktionen eben.


Edit2: und mal andersrum gedacht; warum nicht einfach die Taskleiste/Startmenü(=explorer) oder das Programm hooken, was den Shutdown-Befehl initial auslöst?

Geändert von sansimarkus (14. Aug 2012 um 11:47 Uhr)
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#8

AW: Ruhezustand / Hibernate unter Windows 7 und Windows HomeServer 2011

  Alt 15. Aug 2012, 08:17
Don't Sleep ist ein kleines Programm, welches während der Laufzeit verhindert,
daß der PC in den Standby Modus oder Ruhezustand wechselt.
Aber nicht nur das, es wird ebenso das Abmelden am Computer verhindert,
sowie das Deaktivieren des Monitors, oder die Aktivierung des Bildschirmschoners.

"Don't Sleep" muss nicht installiert werden. Einfach am Desktop platzieren,
oder für portablen Einsatz auf den USB-Stick kopieren.

Info:
http://www.softwareok.de/?seite=Microsoft/DontSleep

Don't Sleep 2.81
DL:
http://www.softwareok.de/Download/DontSleep.zip
oder:
http://www.softwareok.de/?Download=D.../DontSleep.zip
  Mit Zitat antworten Zitat
Benutzerbild von Bambuti2000
Bambuti2000

Registriert seit: 11. Okt 2007
Ort: Troisdorf
44 Beiträge
 
Delphi XE2 Architect
 
#9

AW: Ruhezustand / Hibernate unter Windows 7 und Windows HomeServer 2011

  Alt 28. Aug 2012, 16:17
Hi alle zusammen,

nur noch kurz zur Vervollständigung...

Don'tSleep funktioniert nicht ab Vista ==>

Ja, man könnte auch LightsOut hooken, aber ich wenn dann mal ein anderes Programm wird...

Ich hab jetzt die Netzwerk-Festplatte (mit integriertem Linux als BS) durch die Hintertüre modifiziert und einen Cron-Job laufen, der alle 15 Minuten prüft ob der Server noch erreichbar ist. Wenn nicht fährt die Platte in Standby. Funktioniert Spitze. Dank an Dalai.
Stefan
  Mit Zitat antworten Zitat
Antwort Antwort


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 12:39 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