- Timestamp:
- Sep 6, 2020, 2:47:48 PM (4 years ago)
- Location:
- trunk
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:ignore
-
old new 1 1 Tunneler 2 tunneler 2 3 lib 3 4 backup
-
- Property svn:ignore
-
trunk/Packages/Common/URegistry.pas
r38 r50 1 1 unit URegistry; 2 2 3 {$MODE Delphi}3 {$MODE delphi} 4 4 5 5 interface … … 17 17 RootKey: HKEY; 18 18 Key: string; 19 class function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; static; overload; 20 class function Create(RootKey: HKEY; Key: string): TRegistryContext; static; overload; 19 21 class operator Equal(A, B: TRegistryContext): Boolean; 20 function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; overload;21 function Create(RootKey: HKEY; Key: string): TRegistryContext; overload;22 22 end; 23 23 … … 58 58 end; 59 59 60 function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;60 class function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; 61 61 begin 62 62 Result.RootKey := RegistryRootHKEY[RootKey]; … … 64 64 end; 65 65 66 function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;66 class function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext; 67 67 begin 68 68 Result.RootKey := RootKey; … … 133 133 begin 134 134 {$IFDEF Linux} 135 CloseKey;135 //CloseKey; 136 136 {$ENDIF} 137 137 Result := inherited OpenKey(Key, CanCreate);
Note:
See TracChangeset
for help on using the changeset viewer.