paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 10:41:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added overloaded tregistry.create with access perms

Browse Source 
git-svn-id: trunk@1016 -
This commit is contained in:
marco 2005-09-02 07:27:13 +00:00
parent c747e932e4
commit 2c05ab43ee
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/inc/registry.pp
View File

@ -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;