[fpc-pascal] fpc registry unit

[John Lee]

Think I'm missing something! I need the/a fpc registry unit - I can't seem
to find it on svn - lots of references to it!  Pls send or point me to it.

Code extract (from synaser) that I need to work is
var reg:tregistry;
...
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('\HARDWARE\DEVICEMAP\SERIALCOMM', false);
    reg.GetValueNames(l);
    for n := 0 to l.Count - 1 do
      v.Add(reg.ReadString(l[n]));
    Result := v.CommaText;

I have found a registry unit (registry.pas) on internet but it looks old &
only has stuff like ROpenKey(const Key: String; const KeyBuf:
PChar):Longint; export;

John
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20130301/c17390cf/attachment.html>