已知注册表的某项,想得到该项下所有 数值名称 和 数值数据 逐条显示在memo里 应该怎样写?不引用Registry单元,只用RegOpenKey,RegQueryValueEx等api该怎样写呢? 我对注册表不了解, 一点头绪也没有,大侠帮忙!谢谢
解决方案 »
- MYSQL 连接问题,急!!!!!
- 如何将数值型的记段在DBGRID中显示时,整数在显示的时候也加上小数点和两个0?
- 我的bevel底线到哪里去了?
- ★★★高分★★★竞赛题——信息学家cici(Expert in Informatics cici)
- 请教诸位大虾:如何在DELPHI中点击菜单就可自动运行其他应用程序、WORD文件或帮助文件
- 新来的,大家多关照。
- 怎么在程序里出现用ADO连接时出现的“数据链接属性”
- 怎样在listbox中拖拽可以改变所显示内容的上下顺序
- 算式字符串有效性检查
- 如何连接Ms Access类型的数据库(不用odbc)
- 如何用delphi 7做一个过磅程序,或者哪里有相关资料
- Win7 下DELPHI如何通过进程名获取路径?
function RegEnum(RootKey: HKEY; Name: String; var ResultList: String; const DoKeys: Boolean): boolean;
var
i: integer;
iRes: integer;
s: String;
hTemp: HKEY;
Buf: Pointer;
BufSize: Cardinal;
begin
Result := False;
ResultList := '';
if RegOpenKeyEx(RootKey, PChar(Name), 0, KEY_READ, hTemp) = ERROR_SUCCESS then
begin
Result := True;
BufSize := 1024;
GetMem(buf, BufSize);
i := 0;
iRes := ERROR_SUCCESS;
while iRes = ERROR_SUCCESS do
begin
BufSize := 1024;
if DoKeys then
iRes := RegEnumKeyEx(hTemp, i, buf, BufSize, nil, nil, nil, nil)
else
iRes := RegEnumValue(hTemp, i, buf, BufSize, nil, nil, nil, nil);
if iRes = ERROR_SUCCESS then
begin
SetLength(s, BufSize);
Move(buf^, s[1], BufSize);
if ResultList = '' then
ResultList := s
else
ResultList := Concat(ResultList, #13#10, s);
inc(i);
end;
end;
FreeMem(buf);
RegCloseKey(hTemp);
end;
end;