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>
--
Ronald Fox Email: [EMAIL PROTECTED]
Diagnostic Laboratory Services, Inc. Phone: (808) 589-5172
Honolulu, Hawaii
_______________________________________________
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
