通过Delphi获得qq安装路径

 procedure TForm1.Button2Click(Sender: TObject);
 var
 Reg:TRegistry;
 Val:TStrings;
 ii:System.Integer;
 TmpStr:String;
 begin
 Reg:=TRegistry.Create();
 Val:=TStringList.Create();
 Try
 Reg.RootKey:=HKEY_CURRENT_USER;
 if Reg.OpenKey('Software\Tencent\PlatForm_Type_List\1\',False) then
 Reg.GetKeyNames(Val);
 //Memo1.Lines.AddStrings(Val);
 if Val.Count> then
 begin
 for ii:= to Val.Count- do
 begin
 Reg.CloseKey;if Reg.OpenKey('Software\Tencent\PlatForm_Type_List\'+Val.Strings[ii],False)
 then
 begin
 TmpStr:=Reg.ReadString('TypePath');
 if TmpStr<>'' then
 Showmessage(TmpStr);
 end;
 end;
 end;
 Finally
 Reg.Free;
 Val.Free;
 end;
 end;