Prozessor-Name auslesen ohne Adminrechte

[RWarnecke]

So sollte es auch gehen :

Delphi-Quellcode:

function GetProzessorName: string;
var reg: TRegistry;
begin
   result:='Unbekannter Prozessor';
   reg:=TRegistry.Create;
   try
     reg.RootKey := HKEY_LOCAL_MACHINE;
     reg.OpenKeyReadOnly('Hardware\Description\System\CentralProcessor\0');
     result:=reg.ReadString('ProcessorNameString');
   finally
     reg.free;
   end;
end;