checkcpu.dpr

来自「在Delphi源码中获取任意任务的CPU使用率。」· DPR 代码 · 共 17 行

program CheckCpu;

uses
  Forms,
  main in 'main.pas' {Form1},
  ProcessUtil in 'D:\T3Vcls\PubFuncs\ProcessUtil.pas',
  PubFuncs in 'D:\T3Vcls\PubFuncs\PubFuncs.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '进程CPU占用率检测系统';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.