Windows 7 Prozessorauslastung auslesen / Lautstärke regeln

[Kapitan Bomba]

Delphi-Quellcode:

...
function GetCPUUsage: Integer; 
var 
  spi : SYSTEM_PERFORMANCE_INFORMATION; 
  sti : SYSTEM_TIME_INFORMATION; 
  sbi : SYSTEM_BASIC_INFORMATION; 
begin 
  result := 0; 
  if (NTQuerySystemInformation(SYS_BASIC_INFO, @sbi, sizeof(SYSTEM_BASIC_INFORMATION), 0) = NO_ERROR) then 
  begin 
    if (NTQuerySystemInformation(SYS_TIME_INFO, @sti, sizeof(SYSTEM_TIME_INFORMATION), 0) = NO_ERROR) then 
    if (NTQuerySystemInformation(SYS_PERFORMANCE_INFO, @spi, sizeof(SYSTEM_PERFORMANCE_INFORMATION), 0)= NO_ERROR) then "<-- Bei dieser Zeile flieg ich raus"
    begin 
      if (nOldIdleTime <> 0) then 
      begin 
        nNewCPUTime:= trunc(100-((spi.nIdleTime-nOldIdleTime)/(sti.nKeSystemTime-nOldSystemTime)*100)/sbi.bKeNumberProcessors+0.5); 
        if (nNewCPUTime <> nOldIdleTime) then 
        begin 
... ...