5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
ziqing 2003-10-20
- 打赏
- 举报
同意楼上的楼上！！！
hthunter 2003-10-20
- 打赏
- 举报
好办法
WWWWA 2003-10-20
- 打赏
- 举报
var
r: TRegistry;i,L:integer;
begin
r := TRegistry.Create;
r.RootKey := HKEY_LOCAL_MACHINE;
r.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False);
r.GetkeyNames(Memo1.Lines);
showmessage(inttostr(memo1.Lines.Count-1));
r: TRegistry;i,L:integer;
begin
r := TRegistry.Create;
r.RootKey := HKEY_LOCAL_MACHINE;
r.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False);
r.GetkeyNames(Memo1.Lines);
showmessage(inttostr(memo1.Lines.Count-1));
