* added overloaded tregistry.create with access perms

git-svn-id: trunk@1016 -

fcl/inc/registry.pp

@@ -67,7 +67,8 @@ type
                   BufSize: Integer; RegData: TRegDataType);
     procedure SetCurrentKey(Value: HKEY);
   public
-    constructor Create;
+    constructor Create; overload;
+    constructor Create(aaccess:longword);
     destructor Destroy; override;
 
     function CreateKey(const Key: string): Boolean;
@@ -182,6 +183,13 @@ begin
   SysRegCreate;
 end;
 
+Constructor TRegistry.Create(aaccess:longword);
+
+begin
+  Create;
+  FAccess     := aaccess;
+end;
+
 Destructor TRegistry.Destroy;
 begin
   CloseKey;