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;

相关文章:

  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
  • 2021-11-30
  • 2021-10-02
猜你喜欢
  • 2021-10-19
  • 2021-10-27
  • 2021-09-03
  • 2021-08-18
  • 2022-12-23
  • 2021-12-03
  • 2021-10-07
相关资源
相似解决方案