Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
2.811 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#7

AW: Abfragen der Eigenschaften eines Energieschemas

  Alt 21. Apr 2021, 14:59
Jo, das fehlende stdcall; ist die Ursache, wie KodeZwerg skizziert hat.

Delphi-Quellcode:
program Project5;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  Winapi.Windows;

function PowerGetActiveScheme(UserRootPowerKey: HKEY; var ActivePolicyGuid: PGUID): DWORD; stdcall; external 'PowrProf.dllname 'PowerGetActiveScheme';

var
  ActivePolicyGuidPtr: PGUID;
  res: DWORD;
begin
  try
    ActivePolicyGuidPtr := nil;
    res := PowerGetActiveScheme(0, ActivePolicyGuidPtr);
    if (res = ERROR_SUCCESS) and Assigned(ActivePolicyGuidPtr) then
    begin
      Writeln('Active Power Scheme GUID: ', TGUID(ActivePolicyGuidPtr^).ToString);
      LocalFree(ActivePolicyGuidPtr);
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.
Ergibt bei mir:
Code:
Active Power Scheme GUID: {381B4222-F694-41F0-9685-FF5BB260DF2E}
  Mit Zitat antworten Zitat