var
reg: Tregistry;{请问以下代码是什么意思?那个朋友能给我解释下?这是我下载了个QQ登陆器的源码,}
begin
    reg :=TRegistry.Create;
    with reg do
      begin
        RootKey:=HKEY_LOCAL_MACHINE;
        if openkey('SOFTWARE\TENCENT\QQ',true) then
          QQpath :=  readstring('Install') ;
          free;
      end;
end;

解决方案 »

  1.   

    通过读取注册表项HKEY_LOCAL_MACHINE下的'SOFTWARE\TENCENT\QQ'得到QQ的安装路径呀。以上是关于注册表的读取操作
      

  2.   

    读取QQ安装目录,后续加载Dll和调用其他程序时要用到这个目录。
      

  3.   

    读注册表中QQ的安装目录,你也可以使用raize中的控件,那个更简单,指个一个目录就可以了,不使用uses,不用create