Moin,
was ich damit meine ist das ich immer noch kein ergebniss in meinem Label bz. meiner Edit angezeigt bekomme!
Delphi-Quellcode:
function TForm1.getMinValueFromsubGroupSetting(sub_guid:TGUID ; setting_guid:TGUID):string;
var res, size: DWORD;
b: PWideChar;
begin
size := 0;
PowerReadValueMin (0, @sub_guid, @setting_guid, nil);
GetMem(b, size);
// Nach dem ersten Aufruf wird size richtig gesetzt.
res := PowerReadValueMin (0, @sub_guid, @setting_guid, Pointer(b));
if res = ERROR_SUCCESS then begin
result := b;
end
else
result := b;
FreeMem(b);
end;
Wie ich die funktion nun aufrufe weißt du nun, habe es auch geändert was du geschrieben hattest mit dem PDWord
Delphi-Quellcode:
function PowerReadValueMin(RootPowerKey: HKEY;
const SubGroupOfPowerSettingsGuid: PGUID; const PowerSettingGuid: PGUID;
ValueMinimum: PDWORD): DWORD; stdcall; external PWR_PROF;
Nur was meinst du damit
Zitat:
Bei ValueMinimum übergibst du dann einfach einen Zeiger auf deine DWORD-Variable und schon gehts.
gruss olli