[求助]：如何用VLisp读取注册表内容

nihaogemen

用VLisp读写HKEY_CURRENT_USER\Software\下的内容我会，但如何读写HKEY_CURRENT_USER\Software\Winamp下的内容，请指教。

eachy

几个例子

2. ;;; ProjectPaths.LSP
   
3. ;;; Among other things it can save the paths
   
4. ;;;  to a file that can be imported on another PC.
   
5. ;;; By Jimmy Bergmark
   
6. ;;; Copyright (C) 1997-2002 JTB World, All Rights Reserved
   
7. ;;; Website: [url]www.jtbworld.com[/url] / [url]http://jtbworld.vze.com[/url]
   
8. ;;; E-mail: [email]info@jtbworld.com[/email] / [email]jtbworld@hotmail.com[/email]
   
9. ;;; Tested on AutoCAD 2000
   
10. ;|(defun ReadProject-Settings (cprof)
    
11.   (vl-registry-descendents
    
12.     (strcat
    
13.       "HKEY_CURRENT_USER\"
    
14.       (vlax-product-key)
    
15.       "\\Profiles\"
    
16.       cprof
    
17.       "\\Project Settings"
    
18.     )
    
19.   )
    
20. )
    
21. (defun ReadRefSearchPath (cprof ProjSet)
    
22.   (vl-registry-read
    
23.     (strcat
    
24.       "HKEY_CURRENT_USER\"
    
25.       (vlax-product-key)
    
26.       "\\Profiles\"
    
27.       cprof
    
28.       "\\Project Settings\"
    
29.       ProjSet
    
30.     )
    
31.     "RefSearchPath"
    
32.   )
    
33. )
    
34. ;;; Ex: (AllProjPath (getvar "CPROFILE"))
    
35. (defun AllProjPath (cprof / lst ProjSet)
    
36.   (foreach ProjSet (ReadProject-Settings cprof)
    
37.     (setq
    
38.       lst (cons (cons ProjSet (ReadRefSearchPath cprof ProjSet)) lst)
    
39.     )
    
40.   )
    
41. )
    
42. ;;; Ex: (WriteRefSearchPath (getvar "CPROFILE") "Project1" "c:\temp;c:\project")
    
43. (defun WriteRefSearchPath (cprof ProjSet path)
    
44.   (vl-registry-write
    
45.     (strcat
    
46.       "HKEY_CURRENT_USER\"
    
47.       (vlax-product-key)
    
48.       "\\Profiles\"
    
49.       cprof
    
50.       "\\Project Settings\"
    
51.       ProjSet
    
52.     )
    
53.     "RefSearchPath"
    
54.     path
    
55.   )
    
56. )
    
57. ;;; Deletes all Project paths
    
58. (defun DeleteRefSearchPath (cprof)
    
59.   (foreach ProjSet (ReadProject-Settings cprof)
    
60.     (vl-registry-delete
    
61.       (strcat
    
62.         "HKEY_CURRENT_USER\"
    
63.         (vlax-product-key)
    
64.         "\\Profiles\"
    
65.         cprof
    
66.         "\\Project Settings\"
    
67.         ProjSet
    
68.       )
    
69.     )
    
70.   )
    
71. )
    
72. ;;; Ex: (WriteAllProjPath (getvar "CPROFILE") (list (cons "Project1" "C:\")
    
73. ;;                                                  (cons "Project2" "D:\")))
    
74. ;;; Deletes all old Paths first
    
75. (defun WriteAllProjPath (cprof lst / ProjSet)
    
76.   (DeleteRefSearchPath cprof)
    
77.   (foreach ProjSet lst
    
78.     (WriteRefSearchPath cprof (car ProjSet) (cdr ProjSet))
    
79.   )
    
80. )|;
    
81. 
    

;;; ProjectPaths.LSP<br /> ;;; Among other things it can save the paths<br /> ;;;  to a file that can be imported on another PC.<br /> ;;; By Jimmy Bergmark<br /> ;;; Copyright (C) 1997-2002 JTB World, All Rights Reserved<br /> ;;; Website: [url]www.jtbworld.com[/url] / [url]http://jtbworld.vze.com[/url]<br /> ;;; E-mail: [email]info@jtbworld.com[/email] / [email]jtbworld@hotmail.com[/email]<br /> ;;; Tested on AutoCAD 2000<br /> ;|(defun ReadProject-Settings (cprof)<br />   (vl-registry-descendents<br />     (strcat<br />       "HKEY_CURRENT_USER\"<br />       (vlax-product-key)<br />       "\\Profiles\"<br />       cprof<br />       "\\Project Settings"<br />     )<br />   )<br /> )<br /> (defun ReadRefSearchPath (cprof ProjSet)<br />   (vl-registry-read<br />     (strcat<br />       "HKEY_CURRENT_USER\"<br />       (vlax-product-key)<br />       "\\Profiles\"<br />       cprof<br />       "\\Project Settings\"<br />       ProjSet<br />     )<br />     "RefSearchPath"<br />   )<br /> )<br /> ;;; Ex: (AllProjPath (getvar "CPROFILE"))<br /> (defun AllProjPath (cprof / lst ProjSet)<br />   (foreach ProjSet (ReadProject-Settings cprof)<br />     (setq<br />       lst (cons (cons ProjSet (ReadRefSearchPath cprof ProjSet)) lst)<br />     )<br />   )<br /> )<br /> ;;; Ex: (WriteRefSearchPath (getvar "CPROFILE") "Project1" "c:\temp;c:\project")<br /> (defun WriteRefSearchPath (cprof ProjSet path)<br />   (vl-registry-write<br />     (strcat<br />       "HKEY_CURRENT_USER\"<br />       (vlax-product-key)<br />       "\\Profiles\"<br />       cprof<br />       "\\Project Settings\"<br />       ProjSet<br />     )<br />     "RefSearchPath"<br />     path<br />   )<br /> )<br /> ;;; Deletes all Project paths<br /> (defun DeleteRefSearchPath (cprof)<br />   (foreach ProjSet (ReadProject-Settings cprof)<br />     (vl-registry-delete<br />       (strcat<br />         "HKEY_CURRENT_USER\"<br />         (vlax-product-key)<br />         "\\Profiles\"<br />         cprof<br />         "\\Project Settings\"<br />         ProjSet<br />       )<br />     )<br />   )<br /> )<br /> ;;; Ex: (WriteAllProjPath (getvar "CPROFILE") (list (cons "Project1" "C:\")<br /> ;;                                                  (cons "Project2" "D:\")))<br /> ;;; Deletes all old Paths first<br /> (defun WriteAllProjPath (cprof lst / ProjSet)<br />   (DeleteRefSearchPath cprof)<br />   (foreach ProjSet lst<br />     (WriteRefSearchPath cprof (car ProjSet) (cdr ProjSet))<br />   )<br /> )|;<br /> <br />

nihaogemen

如图,我不知arj.fmt下面有多少内容,但我希望知道在arj.fmt下面有没有64dc8a....(红圈内数字),
请问如何读取