随笔- 792  文章- 4  评论- 396 

var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('Software\HugeRock\ShenGuiClient', False);
    Result := Reg.ReadString('ShenGuiPath');
    if not DirectoryExists(Result) then
      Result := '';
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end;

 posted on 2011-10-24 10:09 Max Woods 阅读(70) 评论(0) 编辑 收藏