K210.ORG

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

const

  SystemBasicInformation = 0;

  SystemPerformanceInformation = 2;

  SystemTimeInformation = 3;

 

type

  TPDWord = ^DWORD;

 

  TSystem_Basic_Information = packed record

    dwUnknown1: DWORD;

    uKeMaximumIncrement: ULONG;

    uPageSize: ULONG;

    uMmNumberOfPhysicalPages: ULONG;

    uMmLowestPhysicalPage: ULONG;

    uMmHighestPhysicalPage: ULONG;

    uAllocationGranularity: ULONG;

    pLowestUserAddress: Pointer;

    pMmHighestUserAddress: Pointer;

    uKeActiveProcessors: ULONG;

    bKeNumberProcessors: byte;

    bUnknown2: byte;

    wUnknown3: word;

  end;

type

  TSystem_Time_Information = packed record

    liKeBootTime: LARGE_INTEGER;

    liKeSystemTime: LARGE_INTEGER;

    liExpTimeZoneBias: LARGE_INTEGER;

    uCurrentTimeZoneId: ULONG;

    dwReserved: DWORD;

  end;

type

  TSystem_Performance_Information = packed record

    liIdleTime: LARGE_INTEGER; {LARGE_INTEGER}

    dwSpare: array[0..75] of DWORD;

  end;

type

  TForm1 = class(TForm)

    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

  NtQuerySystemInformation:

  function(infoClass: DWORD; buffer: Pointer; bufSize: DWORD;

    returnSize: TPDword): DWORD; stdcall = nil;

 

implementation

 

{$R *.dfm}

 

function GetProcessId(h: HWND): DWORD;

begin

  GetWindowThreadProcessId(h, @result);

end;

 

function CPUUsage: string;

var SysBaseInfo: TSystem_Basic_Information;

  SysPerfInfo: TSystem_Performance_Information;

  SysTimeInfo: TSystem_Time_Information;

  status: Longint; {long}

  liOldIdleTime, liOldSystemTime: LARGE_INTEGER;

  dbSystemTime, dbIdleTime, dbIdleTimePercent: Double;

 

  function Li2Double(x: LARGE_INTEGER): Double;

  begin

    Result := x.HighPart * 4.294967296E9 + x.LowPart

  end;

 

begin

  result := '';

// if not IsNT then exit;

  if @NtQuerySystemInformation = nil then

    NtQuerySystemInformation :=

      GetProcAddress(GetModuleHandle('ntdll.dll'),

      'NtQuerySystemInformation');

 

// get number of processors in the system

  status := NtQuerySystemInformation(SystemBasicInformation,

    @SysBaseInfo, SizeOf(SysBaseInfo),

    nil);

  if status <> 0 then exit;

 

// get baseline snapshot (time and idle)

  status := NtQuerySystemInformation(SystemTimeInformation,

    @SysTimeInfo, SizeOf(SysTimeInfo),

    nil);

  if status <> 0 then Exit;

  status := NtQuerySystemInformation(SystemPerformanceInformation,

    @SysPerfInfo, SizeOf(SysPerfInfo),

    nil);

  if status <> 0 then Exit;

 

  liOldIdleTime := SysPerfInfo.liIdleTime;

  liOldSystemTime := SysTimeInfo.liKeSystemTime;

 

  Sleep(500); // wait

 

// get new snapshot

  status := NtQuerySystemInformation(SystemTimeInformation,

    @SysTimeInfo, SizeOf(SysTimeInfo),

    nil);

  if status <> 0 then Exit;

  status := NtQuerySystemInformation(SystemPerformanceInformation,

    @SysPerfInfo, SizeOf(SysPerfInfo),

    nil);

  if status <> 0 then Exit;

 

// get difference - & calc usage % during the 500msec

  dbIdleTime :=

    Li2Double(SysPerfInfo.liIdleTime) - Li2Double(liOldIdleTime);

  dbSystemTime :=

    Li2Double(SysTimeInfo.liKeSystemTime) - Li2Double(liOldSystemTime);

  dbIdleTimePercent := dbIdleTime / dbSystemTime * 100;

 

  if SysBaseInfo.bKeNumberProcessors > 1

    then result := 'CPUs: ' + IntToStr(SysBaseInfo.bKeNumberProcessors) +

    ' Av. Usage: ' + FormatFloat('0%',

 

      (100.0 - dbIdleTimePercent) / SysBaseInfo.bKeNumberProcessors)

  else result := 'CPU Usage: ' +

    FormatFloat('0%',

 

      (100.0 - dbIdleTimePercent) / SysBaseInfo.bKeNumberProcessors);

end;

 

function InsFile(filename: string): string;

var

  TF: TextFile;

begin

  AssignFile(TF, ExtractFileDir(ParamStr(0)) + '\' + filename);

  read(TF, Result);

  CloseFile(TF);

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  caption := CPUUsage;

end;

 

end.