Delphi 6 - Программа должна узнать уровень загруженности процессора

[Никки]

вот что есть:

procedure TMainForm.Timer2Timer(Sender: TObject);
var a:integer;
begin
{ тут должно что - то происходить, чтобы в переменной а
оказалось значение использования процессора в процентах (как в диспетчере задач)
}
end;

ОС - Windows XP

читал что есть в операцинонной системе какой то dll... и xp него можно это как - то получить, хотелось бы знать из какого и каким образом!

Заранее огромное спасибо всем кто поможет!

[JTG]

Microsoft Windows Performance Data Helper DLL
http://sources.codenet.ru/download/677/cpu_usage.html

* Заранее огромное пожалуйста

[Никки]

Это конечно замечательно, но вот до чего я додумался сам, но оно почему - то не работает...

procedure TMainForm.Timer1Timer(Sender: TObject);
var
SysInfo:TSystemInfo;
a:word;
begin
GetSystemInfo(SysInfo);
a:=SysInfo.wProcessorLevel;

end;

в результате всегда число 6

почему это не правильно?

[JTG]

А потому что wProcessorLevel - какой-то параметр, относящийся к архитектуре процессора, а не загруженности

Исходник TaskMgr если прям так охота с NativeAPI разбираться http://webfile.ru/1520574 Рабочий или нет хз