Prozessor-Name auslesen ohne Adminrechte

[Stread]

Hi,
Ich möchte den Namen des Prozessors gerne herausbekommen. Mein Code funktioniert allerdings nur wenn man ihn mit Administrator Rechten benutzt.
Er greift auf die Registry zurück um dort den Namen zu holen.
Anscheinend braucht man dort Admin Rechte auch wenn man nur lesen will. (Windows 7 /XP)

Gibt es eine Möglichkeit an den Prozessornamen zu kommen ohne Adminrechte oder die Registry zu gebrauchen?

PS: Bei Windows 7 gibt es unter System eine Zuammenfassung wieviel RAM installiert ist und auch wie der Prozessor heißt. Windows bekommt dies wohl auch ohne Adminrechte.

Delphi-Quellcode:

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;

[himitsu]

Du kannst den Pfad nur ohne Schreibrechte öffnen.
TRegistry versucht es aber standarmäßig mit Schreibrechten, was dann natürlich kracht.

Hab's jetzt nicht im Kopf, aber in der OH sollte stehn, wie das geht.


PS: CPUID sollte auch gehn



So, allen noch eine gute Nacht ... bin dann mal weg

[Thom]

Delphi-Quellcode:

TRegistry.Create(KEY_READ);
//...

sollte funktionieren.

[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;

[jaenicke]

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;

[p80286]

Zitat von jaenicke:

Das geht bei neueren Delphiversionen auch, ja.

Was ist "neuer"?
Unter D7 geht's auch.

Gruß
K-H

[himitsu]

Ansonsten hatte TRegistry auch noch irgendeinen ReadOnly-Property dafür.

[Stread]

Die Version von RWarnecke oder jaenicke funktioniert gut.

Warum wird aber bei letzter Version noch ein if..then eingebaut?

[himitsu]

Da man vielleicht noch prüfen sollte, ob OpenKeyReadOnly überhaupt erfolgreich war?

[CCRDude]

Wenn man Exceptions vermeiden will, muss man eigentlich auch noch

Code:

reg.ValueExists('ProcessorNameString')

und

Code:

reg.GetDataType('ProcessorNameString') = rdString

überprüfen.

Oder halt bewusst das Exception-Handling nutzen