Use RegEnumKey, RegEnumKeyEx,RegEnumValue functions
解决方案 »
- indy 10 UDP 发消息 中文乱码 求救
- 有用过unidac的朋友吗?
- 怎样把数据库里的数据, 关连到TClientDataSet上?具体情况如下:
- 动态更新series类型
- 谁有XP样式的滚动试菜单,如果事成给1000分快来啊,兄弟们!!!!!!!!!!!!!!!!!!!!!!!11
- 如何实现这样的表格。。
- 100分求解!!!如果运行正确再有200赠送!!!毕设!急!!!!!
- 有沒有一個函數把當前日期孌為20021119字符格式,謝
- 如何去掉shell得系统右键菜单,换成自己得popupmenu?
- System Error. Code: 1400.
- 大富翁怎么死活进不去了?
- DELPHI中的钩子是什么?
DWORD index=0;
bool stop=false;
result=RegOpenKeyEx(HKEY_LOCAL_MACHINE,“SOFTWARE\\ODBC\\datasources",......,&hkey);
if(result==ERROR_SUCCESS)
while(!stop)
{
result=RegEnumValue(hkey,index,......);
if(result==ERROR_SUCCESS)
{
......
}
else
stop=true;
index++;
}
读子键:
DWORD index=0;
bool stop=false;
result=RegOpenKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\\ODBC",......,&hkey);
if(result==ERROR_SUCCESS)
while(!stop)
{
result=RegEnumKeyEx(hkey,index,......);
if(result==ERROR_SUCCESS)
{
......
}
else
stop=true;
index++;
}
读键值,读子键,RegEnumKey, RegEnumKeyEx,RegEnumValue
然后做一个递归程序,你不会??
返回所有键名
procedure GetValueNames(Strings: TStrings);
返回所有的值