delphi下如何获取CPU的使用率，需要和任务管理器上的保持一直

在 Delphi 中可以使用 Windows API 来获取 CPU 的使用率。具体的做法是：

1. 引入 Windows 单元，在 uses 中添加 Windows。

2. 定义以下变量：

type
  TSystemTimes = record
    IdleTime: Int64;
    KernelTime: Int64;
    UserTime: Int64;
    DPCTime: Int64;
    InterruptTime: Int64;
  end;

var
  OldIdleTime, OldSystemTime: TSystemTimes;

3. 编写以下函数：

function GetSystemTimes(var SysTimes: TSystemTimes): boolean; external 'kernel32.dll' name 'GetSystemTimes';

function GetCPUUsage: integer;
var
  SysTimes: TSystemTimes;
  NewIdleTime, NewSystemTime, SystemTime: Int64;
  TimeDelta, SystemDelta: Double;
begin
  Result := -1;
  if not GetSystemTimes(SysTimes) then Exit;
  NewIdleTime := SysTimes.IdleTime;
  NewSystemTime := SysTimes.KernelTime + SysTimes.UserTime;
  SystemTime := NewSystemTime - OldSystemTime.KernelTime - OldSystemTime.UserTime;
  TimeDelta := NewIdleTime - OldIdleTime;
  SystemDelta := SystemTime + TimeDelta;
  if SystemDelta > 0 then
    Result := Round((SystemTime / SystemDelta) * 100);
  OldIdleTime := NewIdleTime;
  OldSystemTime := SysTimes;
end;

这个函数会返回 CPU 的使用率，单位是百分比。

4. 在需要获取 CPU 使用率的地方调用 GetCPUUsage 函数即可。

需要注意的是，这个方法获取的 CPU 使用率可能会与任务管理器上的不完全一致，但是可以保持相对稳定的一致性。此外，在多核 CPU 上，这个方法会返回所有核心的总使用率。如果需要获取某个核心的使用率，需要进行一些额外的计算。