[quote="Mr_G"]Du hast die Funktion so wie ich das gesehen habe falsch übersetzt:
Delphi-Quellcode:
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.
hmm bei mir geht das immer noch nicht
aufrufen tue ich die Funktion mit
Delphi-Quellcode:
procedure TForm1.PS_getActiveClick(Sender: TObject);
var res, res2: DWORD;
tmp: PGUID;
tmp2 : TGUID;
actindex: integer;
s : string;
tray_balloon_title, tray_balloon_hint: string;
begin
res := PowerGetActiveScheme(0, @tmp);
if res = ERROR_SUCCESS then
begin
label1.caption := 'AKTIV: '+getNameFromPowerScheme(PGuidToTGuid(tmp));
label2.caption := getDescriptionFromPowerScheme(PGuidToTGuid(tmp));
label3.Caption := form1.getNameFromsubGroup(PGuidToTGuid(tmp),GUID_PROCESSOR_SETTINGS_SUBGROUP);
label4.Caption := form1.getNameFromsubGroupSetting(PGuidToTGuid(tmp),GUID_PROCESSOR_SETTINGS_SUBGROUP,GUID_CPU_Minimum);
// label5.Caption := form1.getMinValueFromsubGroupSetting(PGuidToTGuid(tmp),GUID_PROCESSOR_SETTINGS_SUBGROUP,GUID_CPU_Minimum);
edit1.text := getMinValueFromsubGroupSetting(GUID_PROCESSOR_SETTINGS_SUBGROUP,GUID_CPU_Minimum);
.
.
.
.
das ist doch richtig oder muss ich da was noch beachten?
gruss olli