Консультация № 55469
14.09.2006, 18:02
0.00 руб.
0 2 1
функции - информацию о процессоре и загрузки

Может кто делал и использывал такие функции а то коечто нашел но не то

Как получить полную информацию о процессоре
и как получить загрузку процесса и желательно вывести в виде графика или еще как-то что бы было наглядно и красива

Обсуждение

Неизвестный
14.09.2006, 20:48
общий
это ответ
Здравствуйте, Сергей Викторович!
Если Вы работаете в WinXP, то инфу о процессоре нужно считать
из реестра.

Приложение:
{---------------------------------------------------------------}{ имя процессора }{---------------------------------------------------------------}function GetProcessorName: string;var Reg : TRegistry; RegPath : string;begin RegPath := ‘\HARDWARE\DESCRIPTION\System\CentralProcessor\0‘; Reg:= TRegistry.Create; Reg.Rootkey:= HKEY_LOCAL_MACHINE; try Reg.Openkey(RegPath,false); Result:= Reg.ReadString(‘ProcessorNameString‘); except end; Reg.Free;end;{---------------------------------------------------------------}{ идентификатор процессора }{---------------------------------------------------------------}function GetProcessorID: string;var Reg: TRegistry; RegPath: string;begin RegPath:= ‘\HARDWARE\DESCRIPTION\System\CentralProcessor\0‘; Reg:= TRegistry.Create; Reg.Rootkey:= HKEY_LOCAL_MACHINE; try Reg.Openkey(RegPath,false); Result:= Reg.ReadString(‘Identifier‘); except end; Reg.Free;end;{---------------------------------------------------------------}{ количество процессоров }{---------------------------------------------------------------}function GetProcessors: byte;varReg: TRegistry;RegPath: string;N: byte;beginResult:= 0;Reg:= TRegistry.Create;for N:= 0 to High(byte) do begin Reg.rootkey:= HKEY_LOCAL_MACHINE; RegPath:= ‘\HARDWARE\DESCRIPTION\System\CentralProcessor\‘ + IntToStr(N); if (Reg.Openkey(RegPath,false) = true) then Result:= Result + 1;end;Reg.Free;end;{---------------------------------------------------------------}{ частота процессора }{---------------------------------------------------------------}function GetProcessorFrequency: string;var Reg : TRegistry; RegPath : string;begin RegPath := ‘\HARDWARE\DESCRIPTION\System\CentralProcessor\0‘; Reg:= TRegistry.Create; Reg.Rootkey:= HKEY_LOCAL_MACHINE; try Reg.Openkey(RegPath,false); Result:= IntToStr(Reg.ReadInteger(‘~MHz‘)); except end; Reg.Free;end;
Неизвестный
15.09.2006, 10:15
общий
А если используеться различные OC и нужно получить более подробную инфу например какой сокет размер кеша
Форма ответа