高分请教关于注册表的问题? 各位大哥,我想读出注册表中 HKEY_CURRENT_USER\Software\Classes 的一些字符串, 例如在 项 classes 下 有许多不同的 字符串值,二进制值,双字节值,而我所需要的是字符串 ... s1,s2,s3,s4 ... 下的值,问题是如何从中将 这些字符串值提取出来, 谢谢!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 给个例子uses registry;procedure TForm1.FileListBox1DblClick(Sender: TObject);varr:TRegistry;beginif 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; 用 TRegistry 似乎没有办法得到某个键值的类型。 reg.GetDataInfo得到某个键值的类型reg.GetKeyNames获得所有子键reg.GetValueNames得到所有键值 image dbgrid显示的问题。请帮忙看看。 fastreport实现DBGrid所见所得,用frPrintGrid1 请高手来回答!!!! 在Delphi里怎样检测本机是否装有SQL和SQL是否启动服务 散分!!!!!!! 怎么让delphi7支持png格式哦 关于TOraSession的问题 删除或更新后从表显示所有数据 晕~!@#$:RICHEDIT在WIN2000下总是有乱码!在98/Me下没有问题。HELP!!帮助UP的有分! 哪有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得到所有键值