kann registry eintrag nicht anzeigen

[Gehstock]

Delphi-Quellcode:

var
Upd:string;

Delphi-Quellcode:

If upd= '1' then Checkbox1.Checked :=true;
Checkbox1.Caption:=upd;//nur zum test

Delphi-Quellcode:

function GetCPUUpdate;
var
  Reg: TRegistry;
  begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0',
False) then
    upd:=String(Reg.ReadString('Update Status'));
  finally
    Reg.Free;
  end;
end;

programm soll praktisch anzeigen ob die CPU upgrade fähig ist

zeigt aber nix an

sollte daran liegen das der eintrag ein Dword ist
aber wie kann ich das anzeigen

[SnuffMaster23]

Wenn du ein DWORD auslesen willst, wieso benutzt du dann Reg.ReadString?
Probier mal ReadInteger

[Gehstock]

ja klappt jetzt aber er liest den wert falsch


laut registry steht bei mit ne 1 für upgradefähig

programm liest aber 0


Upd:integer;

Delphi-Quellcode:

function GetCPUUpdate;
var
  Reg: TRegistry;
  begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0',
False) then
    upd:=(Reg.ReadInteger('Update Status'));
  finally
    Reg.Free;
  end;
end;

Delphi-Quellcode:

If upd= 1 then Checkbox1.Checked :=true;
Checkbox1.Caption:=inttostr(upd);

[Gehstock]

Push

Komm da wirklich net weiter

Delphi-Quellcode:

function GetCPUUpdate:string;
var
  Reg: TRegistry;
  begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0',
False) then
    upd:=(Reg.ReadInteger('Update Status'));
  finally
    Reg.Free;
  end;
end;

upd:Integer;

Delphi-Quellcode:

If upd= 1 then Checkbox1.Checked :=true;
Checkbox1.Caption:=inttostr(upd);//zum test

hat jemand vieleicht ne idee

[Christian Seehase]

Moin Gehstock,

mir ist nicht ganz klar, was da nicht klappt.
Wenn ich Deinen Code per Copy&Paste übernehme, erhalte ich den korrekten Wert.
Es könnte eigentlich nur noch sein, dass Dein globale Variable upd irgendwo überschrieben wird.

BTW:
Warum schreibst Du eigentlich eine Funktion mit String als Rückgabewert, wenn Du dann einen Integer brauchst?

[bitsetter]

Moin,

wozu schreibst du eine Funktion, wenn du Result gar keinen Wert zuweisen tust?
Versuche mal folgenden Code:

Delphi-Quellcode:

function GetCPUUpdate: integer;
var
  Reg: TRegistry;
begin
  Result:= 0;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0',
False) then
    result:= Reg.ReadInteger('Update Status');
  finally
    Reg.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  If GetCPUUpdate= 1 then
    Checkbox1.Checked :=true
  else
  Checkbox1.Checked :=false
end;

Bei mir ist Result übrigens gleich 2.

[Hawkeye219]

Hallo,

arbeitest du an deinem Rechner mit eingeschränkten Rechten? In diesem Fall solltest du es einmal mit

Reg.OpenKeyReadOnly() versuchen.

Gruß Hawkeye

[Gehstock]

Laut Registry 00000001 also 1
Ausgabe und Source siehe Bild

bleibt alles beim alten

Edit: also richtig checken tut er jetzt bei mir aber die Caption (o statt 1 ) klappt net

[bitsetter]

CheckBox1.Caption:= inttostr(GetCPUUpdate); EDIT: oder so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  upd:= GetCPUUpdate;
  If upd= 1 then
    Checkbox1.Checked :=true
  else
  Checkbox1.Checked :=false 

  CheckBox1.Caption:= inttostr(upd);
end;