Ruhezustand auslösen

[Zacherl]

Hallo,
wie kann man mit Delphi den Ruhezustand auslösen?

Florian

[Olli]

SetSuspendState(), denke ich?! Das PSDK ist dein Freund!
Alternativ: SetSystemPowerState().

[BenjaminH]

Vermutlich ShellExecute und dann ShutDown.exe mit irgendwelchen Parametern...
//Ich hätte es davor überprüfen sollen :oops: ShutDown.exe scheint keinen solchen parameterzu haben :-(

[Dax]

Kuck mal nach SetSystemPowerState ;)

Benötigt aber (trotz des Nicht-Shutdowns) das SeShutDownPrivilege.

[MazeBandit]

Hallo erstmal,

ich hab mich heute erst hier eingeloggt, aber dazu gleich mal ne Frage: dieses

Delphi-Quellcode:

setsuspendstate

oder auch das

Delphi-Quellcode:

setsystempowerstate

sind ja so erstmal nciht anwendbar für Delphi 2005... Falls man sie doch direkt einbinden kann (die erforderlichen Rechte für Win XP habe ich bereits festgelegt), würde es mich interessieren, wie ich damit den Ruhezustand und den Standbyzustand für den Rechner erreichen kann.

Habt ihr mal einen Tipp, wie man es effizient in den Quelltext einbinden kann? (bin zwar schon über das 'Hello World' Stadium hinaus, aber noch ein ziemlicher Anfänger...)

Ich freu mich schon auf Antwort,

Maze

[Olli]

Suche mal nach Einbinden einer DLL - oder direkt: http://www.delphipraxis.net/internal...ct.php?t=61658

@Dax: Deine Aussage ist so nicht haltbar. Es findet auf Systemebene sowas wie ein Shutdown statt. Daß der Name nicht extra auf die Powerstates eingeht, ist dabei nicht von Bedeutung ;)

[faux]

Zitat:

Zitat von MazeBandit

dieses setsuspendstate oder auch das setsystempowerstate sind ja so erstmal nciht anwendbar für Delphi 2005...

Wieso nicht?
Ich Tippe einfach

Delphi-Quellcode:

Windows.SetSystemPowerState(True, False);

Wun spätestens nach dem Punkt kommt die Liste, in der auch SetSystemPowerState enthalten ist.
Wenn du das Windows. weglassen willst, musst du Windows in die Uses-Klausel mit aufnehmen, was jedoch meist schon getan ist(außer bei Konsolenanwendungen, etc.).
Hast du überhaupt ein Delphi.Win32 - Projekt erstellt? Also du darfst natürlich kein .NET - Projekt haben. Sonst gehts nicht so.

Grüße
Faux

[Dax]

Zitat:

Zitat von Olli

@Dax: Deine Aussage ist so nicht haltbar. Es findet auf Systemebene sowas wie ein Shutdown statt. Daß der Name nicht extra auf die Powerstates eingeht, ist dabei nicht von Bedeutung ;)

Entschuldige die Verwirrung :) Auf Systemebene ists ein Shutdown, für den User aber eher Standby, so ist jedenfalls meine Erfahrung ;)

[MazeBandit]

@faux: erstmal danke für den Tipp, ich hab das Ganze folgendermaßen umgesetzt:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

(...)

Delphi-Quellcode:

function ExitWin(flag:word): Boolean;
var vi      : TOSVersionInfo;
    hToken  : THandle;
    tp      : TTokenPrivileges;
    h       : DWord;

(...)

Delphi-Quellcode:

    OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES,hToken);
    LookupPrivilegeValue(nil,'SeShutdownPrivilege',tp.Privileges[0].Luid);
    tp.PrivilegeCount := 1;
    tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    h := 0;
    AdjustTokenPrivileges(hToken,False,tp,0,PTokenPrivileges(nil)^,h);
    CloseHandle(hToken);

(...)

Delphi-Quellcode:

    if flag = 0 then
      result := setsystempowerstate(true,true);
  end

Für das Tool übergebe ich mit flag entweder die Werte für das Herunterfahren, Neustarten etc. oder eben den Wert 0 für Standby und 1 für den Ruhezustand...

Obwohl ich ein Delphi - 32 Projekt gestartet habe (sonst würde ja auch das Herunterfahren nicht funktionieren), kann ich trotzdem weder den Ruhezustand noch den Standbyzustand herbeirufen.

Ist eventuell ein Fehler im Code, den ich aus Betriebsblindheit übersehen habe?

Maze

[faux]

Gibts einen Syntaxfehler, eine Exception oder tut sich einfach nichts.