Tregistry的使用

[toe]

如何查找在注册表项下是否存在某个键值

[toe]

谢谢

[winsock2000]

if Registry.KeyExists..........

[oracle_lover]

参见http://expert.csdn.net/Expert/topic/1087/1087854.xml?temp=.1684839

var
myReg:TRegistry;
begin
myReg:=TRegistry.Create ;
myReg.RootKey :=HKEY_LOCAL_MACHINE;
try
myReg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);
if myReg.ValueExists('KAVRun') then
if myReg.GetDataType('KAVRun')=rdString then
showmessage('yes')
else showmessage('no');
finally
myReg.CloseKey ;
myReg.Free ;
end; //end of try
end;

GetDataType得到的数据类型：rdString(字符串)；rdUnknown(未知类型)；rdExpandString(扩展字符串，其中可以有%SYSTEMROOT%等预定义的变量)；rdInteger(双字节值)；rdBinary(二进制值)