jwapowrprof.pas

比较全面的win32api开发包

{$IFDEF DYNAMIC_LINK}
var
  _ReadGlobalPwrPolicy: Pointer;

function ReadGlobalPwrPolicy;
begin
  GetProcedureAddress(_ReadGlobalPwrPolicy, powrprof_lib, 'ReadGlobalPwrPolicy');
  asm
    mov esp, ebp
    pop ebp
    jmp [_ReadGlobalPwrPolicy]
  end;
end;
{$ELSE}
function ReadGlobalPwrPolicy; external powrprof_lib name 'ReadGlobalPwrPolicy';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _ReadPwrScheme: Pointer;

function ReadPwrScheme;
begin
  GetProcedureAddress(_ReadPwrScheme, powrprof_lib, 'ReadPwrScheme');
  asm
    mov esp, ebp
    pop ebp
    jmp [_ReadPwrScheme]
  end;
end;
{$ELSE}
function ReadPwrScheme; external powrprof_lib name 'ReadPwrScheme';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WritePwrScheme: Pointer;

function WritePwrScheme;
begin
  GetProcedureAddress(_WritePwrScheme, powrprof_lib, 'WritePwrScheme');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WritePwrScheme]
  end;
end;
{$ELSE}
function WritePwrScheme; external powrprof_lib name 'WritePwrScheme';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WriteGlobalPwrPolicy: Pointer;

function WriteGlobalPwrPolicy;
begin
  GetProcedureAddress(_WriteGlobalPwrPolicy, powrprof_lib, 'WriteGlobalPwrPolicy');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WriteGlobalPwrPolicy]
  end;
end;
{$ELSE}
function WriteGlobalPwrPolicy; external powrprof_lib name 'WriteGlobalPwrPolicy';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _DeletePwrScheme: Pointer;

function DeletePwrScheme;
begin
  GetProcedureAddress(_DeletePwrScheme, powrprof_lib, 'DeletePwrScheme');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DeletePwrScheme]
  end;
end;
{$ELSE}
function DeletePwrScheme; external powrprof_lib name 'DeletePwrScheme';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetActivePwrScheme: Pointer;

function GetActivePwrScheme;
begin
  GetProcedureAddress(_GetActivePwrScheme, powrprof_lib, 'GetActivePwrScheme');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetActivePwrScheme]
  end;
end;
{$ELSE}
function GetActivePwrScheme; external powrprof_lib name 'GetActivePwrScheme';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetActivePwrScheme: Pointer;

function SetActivePwrScheme;
begin
  GetProcedureAddress(_SetActivePwrScheme, powrprof_lib, 'SetActivePwrScheme');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetActivePwrScheme]
  end;
end;
{$ELSE}
function SetActivePwrScheme; external powrprof_lib name 'SetActivePwrScheme';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetPwrCapabilities: Pointer;

function GetPwrCapabilities;
begin
  GetProcedureAddress(_GetPwrCapabilities, powrprof_lib, 'GetPwrCapabilities');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetPwrCapabilities]
  end;
end;
{$ELSE}
function GetPwrCapabilities; external powrprof_lib name 'GetPwrCapabilities';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _IsPwrSuspendAllowed: Pointer;

function IsPwrSuspendAllowed;
begin
  GetProcedureAddress(_IsPwrSuspendAllowed, powrprof_lib, 'IsPwrSuspendAllowed');
  asm
    mov esp, ebp
    pop ebp
    jmp [_IsPwrSuspendAllowed]
  end;
end;
{$ELSE}
function IsPwrSuspendAllowed; external powrprof_lib name 'IsPwrSuspendAllowed';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _IsPwrHibernateAllowed: Pointer;

function IsPwrHibernateAllowed;
begin
  GetProcedureAddress(_IsPwrHibernateAllowed, powrprof_lib, 'IsPwrHibernateAllowed');
  asm
    mov esp, ebp
    pop ebp
    jmp [_IsPwrHibernateAllowed]
  end;
end;
{$ELSE}
function IsPwrHibernateAllowed; external powrprof_lib name 'IsPwrHibernateAllowed';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _IsPwrShutdownAllowed: Pointer;

function IsPwrShutdownAllowed;
begin
  GetProcedureAddress(_IsPwrShutdownAllowed, powrprof_lib, 'IsPwrShutdownAllowed');
  asm
    mov esp, ebp
    pop ebp
    jmp [_IsPwrShutdownAllowed]
  end;
end;
{$ELSE}
function IsPwrShutdownAllowed; external powrprof_lib name 'IsPwrShutdownAllowed';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _IsAdminOverrideActive: Pointer;

function IsAdminOverrideActive;
begin
  GetProcedureAddress(_IsAdminOverrideActive, powrprof_lib, 'IsAdminOverrideActive');
  asm
    mov esp, ebp
    pop ebp
    jmp [_IsAdminOverrideActive]
  end;
end;
{$ELSE}
function IsAdminOverrideActive; external powrprof_lib name 'IsAdminOverrideActive';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetSuspendState: Pointer;

function SetSuspendState;
begin
  GetProcedureAddress(_SetSuspendState, powrprof_lib, 'SetSuspendState');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetSuspendState]
  end;
end;
{$ELSE}
function SetSuspendState; external powrprof_lib name 'SetSuspendState';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetCurrentPowerPolicies: Pointer;

function GetCurrentPowerPolicies;
begin
  GetProcedureAddress(_GetCurrentPowerPolicies, powrprof_lib, 'GetCurrentPowerPolicies');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetCurrentPowerPolicies]
  end;
end;
{$ELSE}
function GetCurrentPowerPolicies; external powrprof_lib name 'GetCurrentPowerPolicies';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _CanUserWritePwrScheme: Pointer;

function CanUserWritePwrScheme;
begin
  GetProcedureAddress(_CanUserWritePwrScheme, powrprof_lib, 'CanUserWritePwrScheme');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CanUserWritePwrScheme]
  end;
end;
{$ELSE}
function CanUserWritePwrScheme; external powrprof_lib name 'CanUserWritePwrScheme';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _ReadProcessorPwrScheme: Pointer;

function ReadProcessorPwrScheme;
begin
  GetProcedureAddress(_ReadProcessorPwrScheme, powrprof_lib, 'ReadProcessorPwrScheme');
  asm
    mov esp, ebp
    pop ebp
    jmp [_ReadProcessorPwrScheme]
  end;
end;
{$ELSE}
function ReadProcessorPwrScheme; external powrprof_lib name 'ReadProcessorPwrScheme';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WriteProcessorPwrScheme: Pointer;

function WriteProcessorPwrScheme;
begin
  GetProcedureAddress(_WriteProcessorPwrScheme, powrprof_lib, 'WriteProcessorPwrScheme');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WriteProcessorPwrScheme]
  end;
end;
{$ELSE}
function WriteProcessorPwrScheme; external powrprof_lib name 'WriteProcessorPwrScheme';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _ValidatePowerPolicies: Pointer;

function ValidatePowerPolicies;
begin
  GetProcedureAddress(_ValidatePowerPolicies, powrprof_lib, 'ValidatePowerPolicies');
  asm
    mov esp, ebp
    pop ebp
    jmp [_ValidatePowerPolicies]
  end;
end;
{$ELSE}
function ValidatePowerPolicies; external powrprof_lib name 'ValidatePowerPolicies';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _CallNtPowerInformation: Pointer;

function CallNtPowerInformation;
begin
  GetProcedureAddress(_CallNtPowerInformation, powrprof_lib, 'CallNtPowerInformation');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CallNtPowerInformation]
  end;
end;
{$ELSE}
function CallNtPowerInformation; external powrprof_lib name 'CallNtPowerInformation';
{$ENDIF DYNAMIC_LINK}

end.