So habe mal weiter gemacht bisher hat alles gut funktioniert nun komme ich aber nicht weiter!!!
Wenn ich nun den Minimum wert der CPU anzeigen lassen will mit
dieser Function
bekomme ich nichts zurück bzw. mein Label bleibt leer
hier das wesentliche:
Delphi-Quellcode:
{$EXTERNALSYM PowerReadValueMin}
function PowerReadValueMin (RootPowerKey: HKEY;
const SubGroupOfPowerSettingGuid: PGUID; const PowerSettingGuid: PGUID;
Buffer: PUCHAR):
DWORD; stdcall; external PWR_PROF;
implementation
{$R *.dfm}
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;
habe ich irgendwo einen gedanken fehler gemacht?
gruss olli