Changeset 400 for Common/URegistry.pas


Ignore:
Timestamp:
Aug 7, 2012, 2:44:25 PM (12 years ago)
Author:
chronos
Message:
  • Added: TRegistryContext record type for use of combined RootKey and Key variable.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Common/URegistry.pas

    r393 r400  
    1717    rrKeyDynData = HKEY($80000006));
    1818
     19  TRegistryContext = record
     20    RootKey: HKEY;
     21    Key: string;
     22  end;
     23
    1924  { TRegistryEx }
    2025
     
    3136  end;
    3237
     38function RegContext(RootKey: HKEY; Key: string): TRegistryContext;
     39
     40
    3341implementation
     42
     43function RegContext(RootKey: HKEY; Key: string): TRegistryContext;
     44begin
     45  Result.RootKey := RootKey;
     46  Result.Key := Key;
     47end;
    3448
    3549{ TRegistryEx }
Note: See TracChangeset for help on using the changeset viewer.