Как получить данные о батарее в Inno Setup?

Я понимаю, что это должно быть похоже на следующий код:

[Code]
type
  TSystemPowerStatus = {???};

function GetBattery(SYSTEM_POWER_STATUS: TSystemPowerStatus): Boolean;
external '[email protected] stdcall';

procedure ShowBatteryStatus();
var
  PowerStatus: TSystemPowerStatus; 
  State: String;
begin
  GetBattery(PowerStatus);
  State := IntToStr(PowerStatus.BatteryLifePercent);
  MsgBox(format('Battery Precents: %p',[State]), mbInformation, MB_OK);
end;

function InitializeSetup: Boolean;
begin
  ShowBatteryStatus()
  Result := True
end;

Но я не смог найти правильный тип для TSystemPowerStatus.

Тип struct не распознан.

Может кто-нибудь помочь с этим?

Благодарю вас!

winapi inno-setup pascalscript

22.03.2022 16:53

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Это сработало для меня:

[Code]
type
  TSystemPowerStatus = record
    ACLineStatus : Byte;
    BatteryFlag : Byte;
    BatteryLifePercent : Byte;
    Reserved1 : Byte;
    BatteryLifeTime : DWORD;
    BatteryFullLifeTime : DWORD;
  end;

function GetSystemPowerStatus(var SYSTEM_POWER_STATUS: TSystemPowerStatus): Boolean;
external '[email protected] stdcall';

procedure ShowBatteryStatus();
var
  PowerStatus: TSystemPowerStatus; 
  State: String;

begin
  PowerStatus.ACLineStatus := 0;
  PowerStatus.BatteryFlag := 0;
  PowerStatus.BatteryLifePercent  := 0;
  PowerStatus.Reserved1 := 0;
  PowerStatus.BatteryLifeTime := 0;
  PowerStatus.BatteryFullLifeTime := 0;

  if (GetSystemPowerStatus(PowerStatus)) then
  begin
    State := IntToStr(PowerStatus.BatteryLifePercent);
    MsgBox(format('Battery Precents: %s',[State]), mbInformation, MB_OK);
  end
  else begin
    MsgBox(SysErrorMessage(DLLGetLastError), mbError, mb_Ok);    
  end;
end;

function InitializeSetup: Boolean;
begin
  ShowBatteryStatus()
  Result := True
end;

Работает отлично! Спасибо @mirtheil. Кстати, а почему я должен устанавливать значение свойства TSystemPowerStatus в начале функции? Работает и без него.

— 23.03.2022 08:29

И еще вопрос: действительно ли запись заменяет тип структуры в паскале?

— 23.03.2022 08:36

22.03.2022 20:00