Forum: Win32/Win64 API (native code)
Delphi
by Mr_G,
17. Jun 2009
Ohne dir zu Nahe treten zu wollen: Du weißt nicht wirklich was du machst, oder? Schau dir doch bitte mal ein Grundlagentutorial an!
Ich meine was ich sagte:function TForm1.getMinValueFromsubGroupSetting(sub_guid, setting_guid: TGUID): String;
var val: DWORD;
begin
if PowerReadValueMin(0, @sub_guid, @setting_guid, @val) = ERROR_SUCCESS then
Result := IntToStr(val)
else
...
Forum: Win32/Win64 API (native code)
Delphi
by Mr_G,
16. Jun 2009
Jetzt muss ich wieder meine Glaskugel rausholen :glaskugel:
Was geht nicht? Und was soll mir der Code sagen? Ich seh da nur wie du deine eigene Funktion aufrufst.
P.S.: Mir läuft ein kalter Schauer bei der Funktion PGuidToTGuid über den Rücken. Hab mir gerade mal die Implementation angesehen. Ihr solltet euch unbedingt nocheinmal den Umgang mit Pointern ansehen.
Forum: Win32/Win64 API (native code)
Delphi
by Mr_G,
16. Jun 2009
Du hast die Funktion so wie ich das gesehen habe falsch übersetzt:function PowerReadValueMin(RootPowerKey: HKEY;
const SubGroupOfPowerSettingsGuid: PGUID; const PowerSettingGuid: PGUID;
ValueMinimum: PDWORD): DWORD; stdcall; external PWR_PROF;Bei ValueMinimum übergibst du dann einfach einen Zeiger auf deine DWORD-Variable und schon gehts.
Ich würde aber auch nochmal einen Blick auf...
Forum: Win32/Win64 API (native code)
Delphi
by Mr_G,
16. Jan 2009
Immer diese Trickser... :mrgreen:
Forum: Win32/Win64 API (native code)
Delphi
by Mr_G,
16. Jan 2009
Da ich das ganze auch mal für XP gemacht habe will ich das nun nicht verheimlichen ;)type
WRSCHEMESENUMPROC = function(uiIndex: UINT; dwName: DWORD; sName: PWideChar;
dwDesc: DWORD; sDesc: PWideChar; pp: Pointer; lParam: LPARAM): BOOLEAN; stdcall;
{$EXTERNALSYM PWRSCHEMESENUMPROC}
PWRSCHEMESENUMPROC = ^WRSCHEMESENUMPROC;
{$EXTERNALSYM SetActivePwrScheme}
function...
Forum: Win32/Win64 API (native code)
Delphi
by Mr_G,
15. Jan 2009
Sollte da kein Vertipper drin sein sollte es eigentlich gehen... du hast doch auch Windows Vista, oder?
Forum: Win32/Win64 API (native code)
Delphi
by Mr_G,
12. Jan 2009
Dabei ist das gar nicht soo kompliziert. Man muss das ganze nur einmal übersetzen. Ich hoffe ich hab das so richtig gemacht (funktioniert zumindest):const PWR_PROF = 'PowrProf.dll';
{$EXTERNALSYM _POWER_DATA_ACCESSOR}
type _POWER_DATA_ACCESSOR = (
ACCESS_AC_POWER_SETTING_INDEX = 0, // 0x0
ACCESS_DC_POWER_SETTING_INDEX = 1, // 0x1
ACCESS_SCHEME = 16, // 0x10...
Forum: Win32/Win64 API (native code)
Delphi
by Mr_G,
13. Okt 2008
Falls du das Programm selber schreiben willst sollten folgende Funktionen für dich interessant sein:
PowerSetActiveScheme
PowerEnumerate
Gruß
Mr_G