I'm very happy to see a working Registry unit for win32 in the latest release. I can't get the KeyExists function to work as I imagine it should, though. I would expect that KeyExists should test for the presence of a relative or absolute key in the registry. Instead, it seems to return false for any supplied key until there is a successful OpenKey on any key, then it will return true for any key, even non-existant keys.
On an unrelated note, should the 2 Hints that appear in the compiler output be showing up? They didn't in my v1.0.6 install.
Thanks to all who work so tirelessly on this project, your efforts are greatly appreciated.
Regards,
Ron
----------------------
program regquery;
uses
Registry;
var
myTRO : TRegistry;
myKeyInfo : TRegKeyInfo;
myKey : String;
begin
myTRO := TRegistry.Create;
myTRO.RootKey := HKEY_CURRENT_USER;
repeat
write('Enter Key: ');
readln(myKey);
if myKey ''
then
begin
if myTRO.KeyExists(myKey)
then writeln('Key exists.')
else writeln('Key doesn''t exist.');
if myTRO.OpenKey(myKey,False)
then
begin
if myTRO.GetKeyInfo(myKeyInfo)
then
begin
writeln('NumSubKeys: ',myKeyInfo.NumSubKeys);
writeln('NumValues : ',myKeyInfo.NumValues);
end;
end
else writeln('Can''t open key.');
writeln;
end;
until myKey = '';
myTRO.Free;
end.-------------------------------
Microsoft Windows 2000 [Version 5.00.2195]
(C) Copyright 1985-2000 Microsoft Corp.
C:\>cd my-fpc\testing\registry
C:\my-fpc\testing\registry>ppc386 regquery.pp
Hint: End of reading config file c:\pp\bin\win32\fpc.cfg Free Pascal Compiler version 1.0.10 [2003/06/27] for i386 Copyright (c) 1993-2003 by Florian Klaempfl
Target OS: Win32 for i386
Compiling regquery.pp
syswin32.pp(3,1) Hint: Conditional I386 was set at startup in last compilation of syswin32.pp Linking regquery.exe
42 Lines compiled, 4.2 sec
C:\my-fpc\testing\registry>regquery.exe
Enter Key: nada
Key doesn't exist.
Can't open key.
Enter Key: nada
Key doesn't exist.
Can't open key.
Enter Key: \Software
Key doesn't exist.
NumSubKeys: 16
NumValues : 0
Enter Key: \Software
Key exists.
NumSubKeys: 16
NumValues : 0
Enter Key: nada
Key exists.
Can't open key.
Enter Key: nada
Key exists.
Can't open key.
Enter Key: \Software
Key exists.
NumSubKeys: 16
NumValues : 0
Enter Key: \nada
Key exists.
Can't open key.
Enter Key:
C:\my-fpc\testing\registry>