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