إحصائية العضو

Var
Reg : TRegistry;
path : String;
s1 : TStrings;
bd,bv,vd,vv,cv,cn,cs,cf : ShortString;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
s1:=nil;
try
path := '\HARDWARE\DESCRIPTION\System\';
reg.OpenKey(path,false);
s1:=readMulti(reg,'VideoBIOSVersion');
vv:=s1.Text;
reg.CloseKey;
path := '\HARDWARE\DESCRIPTION\System\CentralProcessor\0\' ;
reg.OpenKey(path,false);
cv:=Reg.ReadString('VendorIdentifier');
cn:=Reg.ReadString('Identifier');
cs:=inttostr(reg.ReadInteger('~MHz'));
cf:=inttostr(reg.ReadInteger('FeatureSet'));
Except
End;