paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 07:50:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* For compatibility with existing cross-platform registry code, add registry constants to Registry unit on Windows. The constants are directly mapped to Windows unit to avoid problems.

Browse Source 
git-svn-id: trunk@23219 -
This commit is contained in:
yury 2012-12-24 14:07:01 +00:00
parent 80c25bda92
commit 9b799b9636
2 changed files with 29 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/fcl-registry/src/regdef.inc
View File

@ -2,6 +2,32 @@ Type
HKEY = THandle; HKEY = THandle;
PHKEY = ^HKEY; PHKEY = ^HKEY;
{$ifdef windows}
{ Direct mapping to constants in Windows unit }
Const
HKEY_CLASSES_ROOT = Windows.HKEY_CLASSES_ROOT;
HKEY_CURRENT_USER = Windows.HKEY_CURRENT_USER;
HKEY_LOCAL_MACHINE = Windows.HKEY_LOCAL_MACHINE;
HKEY_USERS = Windows.HKEY_USERS;
HKEY_PERFORMANCE_DATA = Windows.HKEY_PERFORMANCE_DATA;
HKEY_CURRENT_CONFIG = Windows.HKEY_CURRENT_CONFIG;
HKEY_DYN_DATA = Windows.HKEY_DYN_DATA;
KEY_ALL_ACCESS = Windows.KEY_ALL_ACCESS;
KEY_CREATE_LINK = Windows.KEY_CREATE_LINK;
KEY_CREATE_SUB_KEY = Windows.KEY_CREATE_SUB_KEY;
KEY_ENUMERATE_SUB_KEYS = Windows.KEY_ENUMERATE_SUB_KEYS;
KEY_EXECUTE = Windows.KEY_EXECUTE;
KEY_NOTIFY = Windows.KEY_NOTIFY;
KEY_QUERY_VALUE = Windows.KEY_QUERY_VALUE;
KEY_READ = Windows.KEY_READ;
KEY_SET_VALUE = Windows.KEY_SET_VALUE;
KEY_WRITE = Windows.KEY_WRITE;
{$else}
Const Const
HKEY_CLASSES_ROOT = HKEY($80000000); HKEY_CLASSES_ROOT = HKEY($80000000);
HKEY_CURRENT_USER = HKEY($80000001); HKEY_CURRENT_USER = HKEY($80000001);
@ -21,3 +47,5 @@ Const
KEY_READ = $20019; KEY_READ = $20019;
KEY_SET_VALUE = 2; KEY_SET_VALUE = 2;
KEY_WRITE = $20006; KEY_WRITE = $20006;
{$endif windows}

4
packages/fcl-registry/src/registry.pp
View File

@ -17,9 +17,7 @@ Uses
SysUtils, SysUtils,
inifiles; inifiles;
{$ifdef XMLREG} {$I regdef.inc}
{$I regdef.inc}
{$endif XMLREG}
type type
ERegistryException = class(Exception); ERegistryException = class(Exception);