各位大哥,我想读出注册表中 HKEY_CURRENT_USER\Software\Classes 的一些字符串, 例如在 项 classes 下 有许多不同的 字符串值,二进制值,双字节值,而我所需要的是字符串 ... s1,s2,s3,s4 ... 下的值,问题是如何从中将 这些字符串值提取出来, 谢谢!!
解决方案 »
- 用Delphi如何写一个md5加密算法啊???请教!!
- 通过线程ID获得线程的模块名和线程起始地址,该如何做?
- 我做一个文件备份软件,客户端做好了,我想再做一个服务端来监视多个客户端是否在运行,应从那些方面入手呢?
- 请教高手,确定memo当前光标位置与选定字符的问题
- 关于Com组件
- 如何在前台dbgrid中显示几个KEY而在后台数据库中取出所有字段?
- TSaveDialog 问题
- delphi,storedproc, bde
- 请帮忙介绍一些Delphi第三方控件
- 对一个函数的使用,请各位大虾指教!一定给分!!!
- 哪有delphi操作xml的技术文章或e-book或资料下载?
- 急,求助,在线等待!
uses
registry;procedure TForm1.FileListBox1DblClick(Sender: TObject);
var
r:TRegistry;
begin
if ExtractFileExt(AnsiLowerCase(Filelistbox1.FileName))='.bmp' then
begin
r:=TRegistry.Create;
try
r.RootKey:=HKEY_CURRENT_USER;
r.OpenKey('\Control Panel\Desktop',True);
r.WriteString('Wallpaper',Edit1.Text);
r.WriteString('WallpaperStyle',style);
finally
r.CloseKey;
r.Free;
end;
SystemParametersInfo(SPI_SETDESKWALLPAPER,
0,pChar(Filelistbox1.FileName),
SPIF_UPDATEINIFILE);
end;
end;
reg.GetKeyNames获得所有子键
reg.GetValueNames得到所有键值