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.