5,388
社区成员
发帖
与我相关
我的任务
分享注册表读取 放分100，
procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegistry;
s:tstrings;
i:integer;
begin
reg:=TRegistry.Create;
s:=tstrings.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
if reg.OpenKey('.aif',false) then begin
s:=tstrings.Create;
reg.GetKeyNames(s); //到这里就出错！
For i := 0 To s.Count - 1 Do ListBox1.Items.Add(s[I]);
reg.CloseKey;
s.Free;
end;
reg.Free;
end;
想读取所有子键名称，不知道怎么解决。
谢谢！
var
reg:TRegistry;
s:tstrings;
i:integer;
begin
reg:=TRegistry.Create;
s:=tstrings.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
if reg.OpenKey('.aif',false) then begin
s:=tstrings.Create;
reg.GetKeyNames(s); //到这里就出错！
For i := 0 To s.Count - 1 Do ListBox1.Items.Add(s[I]);
reg.CloseKey;
s.Free;
end;
reg.Free;
end;
想读取所有子键名称，不知道怎么解决。
谢谢！
...全文
请发表友善的回复…
发表回复
xixuemao 2005-11-02
- 打赏
- 举报
看看这个解释，嘿嘿
http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/jscript7/html/jsrefabstractattribute.asp
http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/jscript7/html/jsrefabstractattribute.asp
xixuemao 2005-11-02
- 打赏
- 举报
按着Ctrl然后点击tstrings看看，它有很多方法是abstract抽象的，所以是个抽象类。
什么是抽象类不用说了吧，^_^
什么是抽象类不用说了吧，^_^
yjbnew 2005-11-02
- 打赏
- 举报
谢谢 aiirii(ari-淘金坑)，解决了
但是，我没有搞懂，为何用tstrings 就不行了？？
但是，我没有搞懂，为何用tstrings 就不行了？？
aiirii 2005-11-02
- 打赏
- 举报
s:=tstringList.Create;
Mrkang 2005-11-02
- 打赏
- 举报
reg.ReadString(s)
