摘要:
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; 阅读全文