PowerEnumerate

[DevilsCamp]

Erst mal zur Info:
Diese Funktion existiert erst ab Windows Vista.

Ich habe dazu ein paar Fragen:

1.
Da ich das BDS 2006 besitze, ist diese Funktion noch nicht in einer von Borland mit gelieferten Unit vorhanden.

Ich habe sie wie folgt eingebunden:

Delphi-Quellcode:

function PowerEnumerate(RootPowerKey: HKEY; SchemeGuid: PGUID; SubGroupOfPowerSettingsGuid: PGUID; AccessFlags: POWER_DATA_ACCESSOR; Index: ULONG; var Buffer: PGUID; var BufferSize: DWORD): DWORD; stdcall; external 'powrprof.dll' name 'PowerEnumerate';

Kann mir jemand mit Delphi > 2006 sagen, ob das so richtig ist?


2.
Hat jemand eine Ahnung, wie diese Funktion genau funktioniert? Ich würde gerne herausfinden, welche Power-Schemes im System vorhanden sind.

[jfheins]

zu 1: Probieren geht über studieren - geht es denn so eigentlich?

Evtl. müsste Buffer ein PAnsiChar sein :gruebel:

zu 2.:

Schonmal ins msdn geguckt? ( http://msdn.microsoft.com/en-us/library/aa372730(VS.85).aspx )

Zitat:

PowerEnumerate Function


Enumerates the specified elements in a power scheme. This function is normally called in a loop incrementing the Index parameter to retrieve subkeys until they've all been enumerated.

[DevilsCamp]

Zitat:

Zitat von jfheins

zu 1: Probieren geht über studieren - geht es denn so eigentlich?

Evtl. müsste Buffer ein PAnsiChar sein :gruebel:

Und laut Comment am Ende der Seite (Link siehe bei 2) muss es ein Zeiger auf eine GUID Struktur sein...
Aber deshalb hoffe ich ja, dass mir jemand mit Delphi 2007 oder neuer sagen kann, wie (und ob) die Funktion implementiert wurde.

Zitat:

zu 2.:

Schonmal ins msdn geguckt? ( http://msdn.microsoft.com/en-us/library/aa372730(VS.85).aspx )

Zitat:

PowerEnumerate Function


Enumerates the specified elements in a power scheme. This function is normally called in a loop incrementing the Index parameter to retrieve subkeys until they've all been enumerated.

Ich habe es jetzt soweit, dass ich über alle Power Schemes durchlaufen kann (Anzahl entspricht derjenigen, die "powercfg -L" zurück gibt). Allerdings bekomme ich noch keine Rückmeldung, was genau der einzelne Power-Scheme macht. Ich vermute daher, dass ich die Funktion falsch implementiert habe.

[toms]

D2009 kennt die PowerEnumerate API nicht.

[DevilsCamp]

Geschafft.

Nach einbinden der Funktion mit folgender Schreibweise funktioniert es:

Delphi-Quellcode:

function PowerEnumerate(RootPowerKey: HKEY; SchemeGuid: PGUID; SubGroupOfPowerSettingsGuid: PGUID; AccessFlags: POWER_DATA_ACCESSOR; Index: ULONG; var Buffer: TGUID; var BufferSize: DWORD): DWORD; stdcall; external 'powrprof.dll' name 'PowerEnumerate';

Ich musste aus dem

Delphi-Quellcode:

var Buffer: PGUID

ein

Delphi-Quellcode:

var Buffer: TGUID

machen :)

Kleine Ursache, große Wirkung *gg*