取Run下所有值(原创)
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('SOFTWAREMicrosoftWindowsCurrentVersionRun',false) then
begin
reg.GetValueNames(nums1);
num1:=nums1.Count;
end;
For i:=0 To nums1.Count-1 Do
begin
with list.Items.Add...[ 查看全文 ]
