Get the Percentage of Total CPU Usage

Question

I am trying to get the % of total CPU usage to a label1.Caption

I've searched and found these:

• didn't work - http://www.vbforums.com/showthread.php?345723-DELPHI-Get-CPU-Usage

• not what I need - http://delphi.cjcsoft.net/viewthread.php?tid=42837

  • also found bunch of solutions regarding calculating the Usage per process but that is not what i am looking for , i just want the total CPU usage like this widget :

  this is what i am working on :

I believe there is a simple way like when we get RAM usage.

 GlobalMemoryStatus(RamStats);
 Label1.Caption := Format('RAM: %d %%', [RamStats.dwMemoryLoad]);

Answer 1

I found t h i s

does the job

uses adCpuUsage;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
u:string;
begin
  collectcpudata;
   for i:=0 to GetCPUCount-1 do

 u:=FloatToStr(Round(getcpuusage(i)*100));   //Round to approximate 1.0003 to 1

label1.Caption:=u
end;

end.

worked for me