1 |
|
---|
2 | { ---------------------------------------------------------------------
|
---|
3 | System dependent Registry implementation - using XML file.
|
---|
4 | ---------------------------------------------------------------------}
|
---|
5 |
|
---|
6 | uses xmlreg;
|
---|
7 |
|
---|
8 |
|
---|
9 | Const
|
---|
10 | XFileName = 'reg.xml';
|
---|
11 |
|
---|
12 | Procedure TRegistry.SysRegCreate;
|
---|
13 | var s : string;
|
---|
14 | begin
|
---|
15 | s:=includetrailingpathdelimiter(GetAppConfigDir(GlobalXMLFile));
|
---|
16 | ForceDirectories(s);
|
---|
17 | FSysData:=TXMLRegistry.Create(s+XFileName);
|
---|
18 | TXmlRegistry(FSysData).AutoFlush:=False;
|
---|
19 | end;
|
---|
20 |
|
---|
21 | Procedure TRegistry.SysRegFree;
|
---|
22 |
|
---|
23 | begin
|
---|
24 | if Assigned(FSysData) then
|
---|
25 | TXMLRegistry(FSysData).Flush;
|
---|
26 | TXMLRegistry(FSysData).Free;
|
---|
27 | end;
|
---|
28 |
|
---|
29 | function TRegistry.SysCreateKey(const Key: String): Boolean;
|
---|
30 |
|
---|
31 | begin
|
---|
32 | Result:=TXmlRegistry(FSysData).CreateKey(Key);
|
---|
33 | end;
|
---|
34 |
|
---|
35 | function TRegistry.DeleteKey(const Key: String): Boolean;
|
---|
36 |
|
---|
37 | begin
|
---|
38 | Result:=TXMLRegistry(FSysData).DeleteKey(Key);
|
---|
39 | end;
|
---|
40 |
|
---|
41 | function TRegistry.DeleteValue(const Name: String): Boolean;
|
---|
42 | begin
|
---|
43 | Result:=TXmlRegistry(FSysData).DeleteValue(Name);
|
---|
44 | end;
|
---|
45 |
|
---|
46 | function TRegistry.SysGetData(const Name: String; Buffer: Pointer;
|
---|
47 | BufSize: Integer; var RegData: TRegDataType): Integer;
|
---|
48 |
|
---|
49 | Var
|
---|
50 | DataType : TDataType;
|
---|
51 | begin
|
---|
52 | Result:=BufSize;
|
---|
53 | If TXmlregistry(FSysData).GetValueData(Name,DataType,Buffer^,Result) then
|
---|
54 | begin
|
---|
55 | Case DataType of
|
---|
56 | dtUnknown : RegData:=rdUnknown;
|
---|
57 | dtString : RegData:=rdString;
|
---|
58 | dtDWord : RegData:=rdInteger;
|
---|
59 | dtBinary : RegData:=rdBinary;
|
---|
60 | end;
|
---|
61 | end
|
---|
62 | else
|
---|
63 | Result:=-1;
|
---|
64 | end;
|
---|
65 |
|
---|
66 |
|
---|
67 | function TRegistry.GetDataInfo(const ValueName: String; var Value: TRegDataInfo): Boolean;
|
---|
68 |
|
---|
69 | Var
|
---|
70 | Info : TDataInfo;
|
---|
71 |
|
---|
72 | begin
|
---|
73 | Result := TXmlRegistry(FSysData).GetValueInfo(ValueName,Info);
|
---|
74 | If Not Result then
|
---|
75 | With Value do
|
---|
76 | begin
|
---|
77 | RegData:=rdunknown;
|
---|
78 | DataSize:=0;
|
---|
79 | end
|
---|
80 | else
|
---|
81 | With Value do
|
---|
82 | begin
|
---|
83 | Case Info.DataType of
|
---|
84 | dtUnknown: RegData:=rdUnknown;
|
---|
85 | dtDword : Regdata:=rdInteger;
|
---|
86 | dtString : RegData:=rdString;
|
---|
87 | dtBinary : RegData:=rdBinary;
|
---|
88 | end;
|
---|
89 | DataSize:=Info.DataSize;
|
---|
90 | end;
|
---|
91 | end;
|
---|
92 |
|
---|
93 | function TRegistry.GetKey(const Key: String): HKEY;
|
---|
94 | begin
|
---|
95 | Result := 0;
|
---|
96 | end;
|
---|
97 |
|
---|
98 | function TRegistry.GetKeyInfo(var Value: TRegKeyInfo): Boolean;
|
---|
99 |
|
---|
100 | Var
|
---|
101 | Info : TKeyInfo;
|
---|
102 |
|
---|
103 | begin
|
---|
104 | Result:=TXmlRegistry(FSysData).GetKeyInfo(info);
|
---|
105 | If Result then
|
---|
106 | With Value,Info do
|
---|
107 | begin
|
---|
108 | NumSubKeys:=SubKeys;
|
---|
109 | MaxSubKeyLen:=SubKeyLen;
|
---|
110 | NumValues:= Values;
|
---|
111 | MaxValueLen:=ValueLen;
|
---|
112 | MaxDataLen:=DataLen;
|
---|
113 | FileTime:=FTime;
|
---|
114 | end;
|
---|
115 | end;
|
---|
116 |
|
---|
117 | function TRegistry.KeyExists(const Key: string): Boolean;
|
---|
118 | begin
|
---|
119 | Result:=TXmlRegistry(FSysData).KeyExists(Key);
|
---|
120 | end;
|
---|
121 |
|
---|
122 | function TRegistry.LoadKey(const Key, FileName: string): Boolean;
|
---|
123 | begin
|
---|
124 | Result := False;
|
---|
125 | end;
|
---|
126 |
|
---|
127 | function TRegistry.OpenKey(const Key: string; CanCreate: Boolean): Boolean;
|
---|
128 |
|
---|
129 | begin
|
---|
130 | Result:=TXmlRegistry(FSysData).SetKey(Key,CanCreate);
|
---|
131 | FCurrentKey:=1;
|
---|
132 | end;
|
---|
133 |
|
---|
134 | function TRegistry.OpenKeyReadOnly(const Key: string): Boolean;
|
---|
135 |
|
---|
136 | begin
|
---|
137 | Result:=TXmlRegistry(FSysData).SetKey(Key,False);
|
---|
138 | end;
|
---|
139 |
|
---|
140 | function TRegistry.RegistryConnect(const UNCName: string): Boolean;
|
---|
141 | begin
|
---|
142 | Result := True;
|
---|
143 | end;
|
---|
144 |
|
---|
145 | function TRegistry.ReplaceKey(const Key, FileName, BackUpFileName: string): Boolean;
|
---|
146 | begin
|
---|
147 | Result := False;
|
---|
148 | end;
|
---|
149 |
|
---|
150 | function TRegistry.RestoreKey(const Key, FileName: string): Boolean;
|
---|
151 | begin
|
---|
152 | Result := False;
|
---|
153 | end;
|
---|
154 |
|
---|
155 | function TRegistry.SaveKey(const Key, FileName: string): Boolean;
|
---|
156 | begin
|
---|
157 | Result := False;
|
---|
158 | end;
|
---|
159 |
|
---|
160 | function TRegistry.UnLoadKey(const Key: string): Boolean;
|
---|
161 | begin
|
---|
162 | Result := False;
|
---|
163 | end;
|
---|
164 |
|
---|
165 | function TRegistry.ValueExists(const Name: string): Boolean;
|
---|
166 | begin
|
---|
167 | Result := TXmlRegistry(FSysData).ValueExists(Name);
|
---|
168 | end;
|
---|
169 |
|
---|
170 | procedure TRegistry.ChangeKey(Value: HKey; const Path: String);
|
---|
171 | begin
|
---|
172 |
|
---|
173 | end;
|
---|
174 |
|
---|
175 | procedure TRegistry.GetKeyNames(Strings: TStrings);
|
---|
176 | begin
|
---|
177 | TXmlRegistry(FSysData).EnumSubKeys(Strings);
|
---|
178 | end;
|
---|
179 |
|
---|
180 | procedure TRegistry.GetValueNames(Strings: TStrings);
|
---|
181 | begin
|
---|
182 | TXmlRegistry(FSysData).EnumValues(Strings);
|
---|
183 | end;
|
---|
184 |
|
---|
185 |
|
---|
186 | Function TRegistry.SysPutData(const Name: string; Buffer: Pointer;
|
---|
187 | BufSize: Integer; RegData: TRegDataType) : Boolean;
|
---|
188 |
|
---|
189 | Var
|
---|
190 | DataType : TDataType;
|
---|
191 |
|
---|
192 | begin
|
---|
193 | Case RegData of
|
---|
194 | rdUnknown : DataType := dtUnknown;
|
---|
195 | rdString,rdExpandString : DataType := dtString;
|
---|
196 | rdInteger : DataType := dtDword;
|
---|
197 | rdBinary : DataType := dtBinary;
|
---|
198 | end;
|
---|
199 | Result:=TXMLRegistry(FSysData).SetValueData(Name,DataType,Buffer^,BufSize);
|
---|
200 | end;
|
---|
201 |
|
---|
202 | procedure TRegistry.RenameValue(const OldName, NewName: string);
|
---|
203 | begin
|
---|
204 | TXMLRegistry(FSysData).RenameValue(OldName,NewName);
|
---|
205 | end;
|
---|
206 |
|
---|
207 | procedure TRegistry.SetCurrentKey(Value: HKEY);
|
---|
208 | begin
|
---|
209 | fCurrentKey := Value;
|
---|
210 | end;
|
---|
211 |
|
---|
212 | procedure TRegistry.SetRootKey(Value: HKEY);
|
---|
213 |
|
---|
214 | Var
|
---|
215 | S: String;
|
---|
216 |
|
---|
217 | begin
|
---|
218 | If (Value=HKEY_CLASSES_ROOT) then
|
---|
219 | S:='HKEY_CLASSES_ROOT'
|
---|
220 | else if (Value=HKEY_CURRENT_USER) then
|
---|
221 | S:='HKEY_CURRENT_USER'
|
---|
222 | else if (Value=HKEY_LOCAL_MACHINE) then
|
---|
223 | S:='HKEY_LOCAL_MACHINE'
|
---|
224 | else if (Value=HKEY_USERS) then
|
---|
225 | S:='HKEY_USERS'
|
---|
226 | else if Value=HKEY_PERFORMANCE_DATA then
|
---|
227 | S:='HKEY_PERFORMANCE_DATA'
|
---|
228 | else if (Value=HKEY_CURRENT_CONFIG) then
|
---|
229 | S:='HKEY_CURRENT_CONFIG'
|
---|
230 | else if (Value=HKEY_DYN_DATA) then
|
---|
231 | S:='HKEY_DYN_DATA'
|
---|
232 | else
|
---|
233 | S:=Format('Key%d',[Value]);
|
---|
234 | TXmlRegistry(FSysData).SetRootKey(S);
|
---|
235 | fRootKey := Value;
|
---|
236 | end;
|
---|
237 |
|
---|
238 | procedure TRegistry.CloseKey;
|
---|
239 |
|
---|
240 | begin
|
---|
241 | // CloseKey is called from destructor, which includes cases of failed construction.
|
---|
242 | // FSysData may be unassigned at this point.
|
---|
243 | if Assigned(FSysData) then
|
---|
244 | begin
|
---|
245 | TXMLRegistry(FSysData).Flush;
|
---|
246 | TXMLRegistry(FSysData).SetRootKey(TXMLRegistry(FSysData).RootKey);
|
---|
247 | end;
|
---|
248 | end;
|
---|
249 |
|
---|
250 | procedure TRegistry.CloseKey(key:HKEY);
|
---|
251 |
|
---|
252 | begin
|
---|
253 | if Assigned(FSysData) then
|
---|
254 | begin
|
---|
255 | TXMLRegistry(FSysData).Flush;
|
---|
256 | TXMLRegistry(FSysData).SetRootKey(TXMLRegistry(FSysData).RootKey);
|
---|
257 | end;
|
---|
258 | end;
|
---|