CPU-Takt ändern / Energiesparmodus ändern

[Neutral General]

Zum Auflisten der Energiesparmodi und deren GUIDs (benötigt für PowerSetActiveScheme):
Code ist natürlich nur schnell runtergetippt und nichts woran man sich unbedingt orientieren sollte

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var size: DWORD;
    name: String;
    guid: TGUID;
    result: DWORD;
    index: Integer;
begin
  index := 0;
  while true do
  begin
    size := SizeOf(TGUID);
    result := PowerEnumerate(0, TGUID.Empty, TGUID.Empty, Integer(ACCESS_SCHEME), index, @guid, @size);
    if result = ERROR_SUCCESS then
    begin
      SetLength(name, 200);
      size := Length(name) * SizeOf(Char);
      result := PowerReadFriendlyName(0, guid, NO_SUBGROUP_GUID, nil, @name[1], @size);
      if result = ERROR_SUCCESS then
        ListBox1.Items.Add(Trim(name) + ' (' + guid.ToString + ')')
    end
    else
      break;

    inc(index);
  end;
end;