[lmikle]

Есть такая функция:

Код:

1	function PowerEnumerate(RootPowerKey : THandle; SchemeGuid : PGUID; SubGroupOfPowerSettingsGuid : PGUID; AccessFlags: POWER_DATA_ACCESSOR; Index: ULONG; var Buffer : TGUID; var BufferSize : DWORD) : DWORD; stdcall; external 'PowrProf.dll';

Вызов:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

procedure TPowerPlansList.GetPowerPlans; const   BufferLength : DWORD = 1024; var   chGuid : TGUID;   szGuid : DWORD;   szName : DWORD;   chName : PChar;   stName : String;   Idx : Integer;   Ret : Integer;     PowerPlan : TPowerPlan;     iEnum : DWORD; begin   FItems.Clear;   Idx := 0;     szGuid := SizeOf(TGUID);     GetMem(chName,BufferLength*SizeOf(Char));     Try     iEnum := PowerEnumerate(0{Nil},Nil,Nil,ACCESS_SCHEME,Idx,chGuid,szGuid);     While iEnum = 0 Do       Begin         // Reinitialize buffer and buffer size         // Undocumented in MSDN: even when PowerReadFriendlyName success,         // it overwrites buffer size         szName := BufferLength;         ZeroMemory(chName,BufferLength*SizeOf(Char));           Ret := PowerReadFriendlyName(Nil,@chGuid,Nil,Nil,PUCHAR(chName),@szName);         if Ret = 0           Then stName := StrPas(chName)           Else             If Not PowerReadWellKnownFriendlyName(chGuid,stName)               Then stName := 'Unknown plan';           PowerPlan.Index := Idx;         PowerPlan.Guid := chGuid;         PowerPlan.Name := stName;         FItems.Add(PowerPlan);           Inc(Idx);           iEnum := PowerEnumerate(0{Nil},Nil,Nil,ACCESS_SCHEME,Idx,chGuid,szGuid);       End;   Finally     FreeMem(chName,szName*SizeOf(Char));   End; end;

Но тут есть такой момент. Все прекрасно работает под Win32, а под Win64 возвращает ошибку (87, вроде это про неправильный параметр).
Если у кого есть мысль что в этом коде неправильно - подскажите.

[NumLock]

Вот на х64 работает, на х32 нет возможности проверить - на виртуалке только WindowsXP, а там и не будет работать:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

function PowerEnumerate(RootPowerKey: HKEY;   SchemeGuid: PGUID; SubGroupOfPowerSettingsGuid: PGUID;   AccessFlags: DWORD; Index: ULONG;   Buffer: Pointer; var BufferSize: DWORD): DWORD;   stdcall; external 'powrprof.dll';   function PowerReadFriendlyName(   RootPowerKey: HKEY;   SchemeGuid: PGUID; SubGroupOfPowerSettingsGuid: PGUID;   PowerSettingGuid: PGUID;   Buffer: Pointer; var BufferSize: DWORD ): DWORD; stdcall; external 'powrprof.dll';   const   ACCESS_SCHEME = 16;   procedure TForm1.FormCreate(Sender: TObject); var   Buffer: TGUID;   BufferSize: DWORD;   LIndex: ULONG;   LPowerEnumerate: DWORD;   BufferName: array [0..$FF] of Char; begin   LIndex:=0;   repeat     BufferSize:=SizeOf(TGUID);     LPowerEnumerate:=PowerEnumerate(0, nil, nil, ACCESS_SCHEME,       LIndex, @Buffer, BufferSize);     if LPowerEnumerate=ERROR_SUCCESS then     begin       Memo1.Lines.Add(GUIDToString(Buffer));       BufferSize:=Length(BufferName);       if PowerReadFriendlyName(0, @Buffer, nil, nil,         @BufferName[0], BufferSize)<>ERROR_SUCCESS then RaiseLastOSError;         Memo1.Lines.Add(BufferName);     end;     Inc(LIndex);   until LPowerEnumerate<>ERROR_SUCCESS; end;

Результат:

{381B4222-F694-41F0-9685-FF5BB260DF2E}
Сбалансированная
{8C5E7FDA-E8BF-4A96-9A85-A6E23A8C635C}
Высокая производительность
{A1841308-3541-4FAB-BC81-F71556F20B4A}
Экономия энергии

[lmikle]

Да, вроде, код такой-же...
Ладно, проверю что там с ULong... это, по факту, единственная разница.

ЗЫ. Я все на 64-бит ОС проверял, просто сборка 32- и 64-бит. 32 работает, а 64 - нет. ОС - Win10, если что...

[@Rafa3L]

Сообщение от NumLock

Вот на х64 работает...

на х32 аналогичный результат

[lmikle]

Короче, расковыряли.
Оказывается, под 64 бита дефолтный enum не совместим с С кодом, хотя он и с 32 битным не совместим, но там почему-то работает. Либо ставим {$Z4}, либо вообще декларируем как NativeUInt и все работает.
Вот ведь...