摘要: 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 @ 2011-10-24 10:09 Max Woods 阅读(303) 评论(0) 推荐(0) 编辑