Namen des Prozessors auslesen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
function GetProzessorName: string;
var reg: TRegistry;
begin
result:='Unbekannter Prozessor';
reg:=TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('Hardware\Description\System\CentralProcessor\0', false);
result:=reg.ReadString('ProcessorNameString');
finally
reg.free;
end;
end;
var reg: TRegistry;
begin
result:='Unbekannter Prozessor';
reg:=TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('Hardware\Description\System\CentralProcessor\0', false);
result:=reg.ReadString('ProcessorNameString');
finally
reg.free;
end;
end;