Das geht bei neueren Delphiversionen auch, ja. Ich würde den Rückgabewert allerdings auch auswerten:
Delphi-Quellcode:
function GetProzessorName: string;
var
reg: TRegistry;
begin
result := 'Unbekannter Prozessor';
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKeyReadOnly('Hardware\Description\System\CentralProcessor\0') then
result := reg.ReadString('ProcessorNameString');
finally
reg.free;
end;
end;