ÇáÓáÇã Úáíßã
Êäæíå :
åÐÇ ÇáãæÖæÚ ÝÞØ ááÊÑæíÍ Úä ÇáäÝÓ ãä ÇáæÖÚ ÇáÍÇáí æãÍÇæáÉ ÊäÇÓí ÇáÊÚÇÓÉ æ ÇáÊÔÇÄã ÇáÐí äÚíÔå ÈÓÈÈ ...

æÌÏÊ äÝÓí Ýí ÞãÉ Çáãáá ßá ßã ÏÞíÞÉ ÇÚãá refresh áãæÞÚ ÇáÝÑíÞ ÇáÚÑÈí áÚá æÚÓì ÇÌÏ ãÇ íÒíá ÇáÖÌÑ æ Çáãáá ÇáÐí ÇäÇ Ýíå Ýáã ÇÌÏ ãÇ íÑÖí Ðáß ÇáÇäÓÇä ÇáãÚÞÏ ...
ÃãÇãí ßÊÇÈ Windows NT/2000 Native API , äÙÑÊ áæÇÌåÉ ÇáßÊÇÈ ãÑÇÊ æãÑÇÊ æ ÈÚÏåÇ ÞÑÑÊ ÇÝÊÍ ÇáßÊÇÈ æ ÇäÊÞí ÏÇáÉ ÈÕæÑÉ ÚÔæÇÆíÉ áÇØÈÞ ÚáíåÇ ãËÇáÇð (ØÈÚÇ ÇäÊÞíÊ ÇáÇÓåá ÍÊì áÇ ÇÞáÞ ÏãÇÛí ÈØáÇãÓ ßËíÑÉ )...
ÇáÏÇáÉ ZwPowerInformation ãä ÇáÇÓã íãßä äÚÑÝ ÔÆ ÚäåÇ ... æÙíÝÊåÇ ÇáÍÕæá ( ÊÛííÑ ) Úáì ( Ýí ) ãÚáæãÇÊ ÇáÜ Power ..
ÊÕÑíÍ ÇáÏÇáÉ ÍÓÈ Ðáß ÇáãÑÌÚ ßÇáÂÊí

NTSYSAPI
NTSTATUS
NTAPI
ZwPowerInformation(
        IN POWER_INFORMATION_LEVEL PowerInformationLevel,
        IN PVOID InputBuffer OPTIONAL,
        IN ULONG InputBufferLength,
        OUT PVOID OutputBuffer OPTIONAL,
        IN ULONG OutputBuffer
);

function NtPowerInformation(
   PowerInformationLevel:TPowerInformationLevel;
   InputBuffer:Pointer;
   InputBufferLength:ULONG;
   OutputBuffer:Pointer;
   OutputBufferLength:ULONG
   ):NTSTATUS; stdcall external 'ntdll.dll' name 'NtPowerInformation';

TPowerInformationLevel=( SystemPowerPolicyAc,
  SystemPowerPolicyDc,
  VerifySystemPolicyAc,
  VerifySystemPolicyDc,
  SystemPowerCapabilities,
  SystemBatteryState,
  SystemPowerStateHandler,
  ProcessorStateHandler,
  SystemPowerPolicyCurrent,
  AdministratorPowerPolicy,
  SystemReserveHiberFile,
  ProcessorInformation,
  SystemPowerInformation
  );
POWER_INFORMATION_LEVEL =TPowerInformationLevel;
PPowerInformationLevel =^TPowerInformationLevel;

 TProcessorPowerInformation = record
    Number,
    MaxMhz,
    CurrentMhz,
    MhzLimit,
    MazIdleState,
    CurrentIdleStatr:ULONG
  end;
   PProcessorPowerInformation=^TProcessorPowerInformation;
   PROCESSOR_POWER_INFORMATION=TProcessorPowerInformation;
   PPROCESSOR_POWER_INFORMATION=^TProcessorPowerInformation;

var
ProcessorInfo:TProcessorPowerInformation;
res:NTSTATUS;
begin
    ZeroMemory( @ProcessorInfo,sizeof( TProcessorPowerInformation));
    res:=NtPowerInformation(ProcessorInformation,nil,0,@ProcessorInfo,sizeof(TProcessorPowerInformation));

    if res=0 then
// do what you want here
end;