|
Jak pobrać identyfikator oraz nazwę procesora? |
|
|
|
Napisał: Berl
|
|
sobota, 01 październik 2005 |
|
Identyfikator oraz nazwa procesora znajduje się w rejestrze. Po prostu musimy odczytać te wartości z rejestru. Najpierw należy dodać do sekcji Uses wpis Registry.
function NazwaCPU: string;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', False) then
Result := 'Identyfikator : ' + Reg.ReadString('Identifier');
if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', False) then
Result := Result + #13 + #10 + 'Nazwa procesora : ' + Reg.ReadString('ProcessorNameString');
finally
Reg.Free;
end;
end;
Aby wyświetlić nazwę i identyfikator procesora, wystarczy napisać :
ShowMessage(NazwaCPU);
Należy zaznaczyć, że z tego samego klucza możemy odczytać także częstotliwość procesora.Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. |
