procedure TForm1.FormCreate(Sender: TObject); var num1,num2:integer; reg:Tregistry; nums1:Tstringlist; nums2:Tstringlist; I:integer; begin list.Clear; nums1:=Tstringlist.Create; nums2:=Tstringlist.Create; reg:=Tregistry.create; reg.Rootkey:=HKEY_LOCAL_MACHINE; If reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentV...
[ 查看全文 ]