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