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;