CPU auslastung der einzelnen Prozesse

[Luckie]

Der Destruktor ist eigentlich immer Destroy:

Delphi-Quellcode:

type
  TProcessManager = class(TObject)
    private
      tRefresher:  TTimer;
      processes:   TCPULoads;
      RI: Integer;
      Function GetTime(fFiletime: FileTime): Cardinal;
      Procedure RefreshSnapShot;
      Procedure RefreshProcesslist(Sender: TObject);
      Procedure SetRefreshInterval(newInterval: Integer);

    public
      constructor create(RI: Integer);
>>>   destructor Destroy; override;  <<<
      Function GetCPUTimeforProcess(PID: Integer): Integer;
      Function GetMemoryUsageforProcess(PID: Integer):Cardinal;
      Function KillProcess(PID: Integer): Boolean;
      Function GetProcesses: TCPULoads;
      Property RefreshInterval: Integer read RI write SetRefreshInterval;
  end;