通过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('SoftwareTencentPlatForm_Type_List1',False) then
Reg.GetKeyNames(Val);
//Memo1.Lines.AddStrings(Val);
if Val.Count>0 then
begin
for ii:=0 to Val.Count-1 do
begin
Reg.CloseKey;if Reg.OpenKey('SoftwareTencentPlatForm_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;