From 2c05ab43eef929370f4248f15ad90af77aa8d7c1 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Fri, 2 Sep 2005 07:27:13 +0000
Subject: [PATCH]  * added overloaded tregistry.create with access perms

git-svn-id: trunk@1016 -
---
 fcl/inc/registry.pp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/fcl/inc/registry.pp b/fcl/inc/registry.pp
index fecaa81224..03c7cd85cb 100644
--- a/fcl/inc/registry.pp
+++ b/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;