请问如何在VB中实现下面这个.reg文件的功能?请大侠帮帮忙!谢谢!!
.reg文件内容:
REGEDIT4[HKEY_CLASSES_ROOT\TypeLib\{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}][HKEY_CLASSES_ROOT\TypeLib\{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}\1.0]
@="PreviewPrint"[HKEY_CLASSES_ROOT\TypeLib\{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}\1.0\FLAGS]
@="0"[HKEY_CLASSES_ROOT\TypeLib\{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}\1.0\0][HKEY_CLASSES_ROOT\TypeLib\{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}\1.0\0\win32]
@="C:\\Windows\\System\\PreviewPrint.tlb"[HKEY_CLASSES_ROOT\TypeLib\{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}\1.0\HELPDIR]
@="C:\\Windows\\System"[HKEY_CLASSES_ROOT\PreviewPrint.Document]
@="Previe Document"[HKEY_CLASSES_ROOT\PreviewPrint.Document\CLSID]
@="{D5E5B1A6-68E7-11D2-BEF9-0080C770FCBD}"[HKEY_CLASSES_ROOT\Interface\{D5E5B1A8-68E7-11D2-BEF9-0080C770FCBD}]
@="IPreviewPrint"[HKEY_CLASSES_ROOT\Interface\{D5E5B1A8-68E7-11D2-BEF9-0080C770FCBD}\ProxyStubClsid]
@="{00020420-0000-0000-C000-000000000046}"[HKEY_CLASSES_ROOT\Interface\{D5E5B1A8-68E7-11D2-BEF9-0080C770FCBD}\ProxyStubClsid32]
@="{00020420-0000-0000-C000-000000000046}"[HKEY_CLASSES_ROOT\Interface\{D5E5B1A8-68E7-11D2-BEF9-0080C770FCBD}\TypeLib]
@="{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}"
"Version"="1.0"[HKEY_CLASSES_ROOT\CLSID\{D5E5B1A6-68E7-11D2-BEF9-0080C770FCBD}]
@="Previe Document"[HKEY_CLASSES_ROOT\CLSID\{D5E5B1A6-68E7-11D2-BEF9-0080C770FCBD}\ProgID]
@="PreviewPrint.Document"[HKEY_CLASSES_ROOT\CLSID\{D5E5B1A6-68E7-11D2-BEF9-0080C770FCBD}\InprocHandler32]
@="ole32.dll"[HKEY_CLASSES_ROOT\CLSID\{D5E5B1A6-68E7-11D2-BEF9-0080C770FCBD}\LocalServer32]
@="C:\\Windows\\System\\PreviewPrint.Exe"
.reg文件内容:
REGEDIT4[HKEY_CLASSES_ROOT\TypeLib\{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}][HKEY_CLASSES_ROOT\TypeLib\{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}\1.0]
@="PreviewPrint"[HKEY_CLASSES_ROOT\TypeLib\{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}\1.0\FLAGS]
@="0"[HKEY_CLASSES_ROOT\TypeLib\{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}\1.0\0][HKEY_CLASSES_ROOT\TypeLib\{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}\1.0\0\win32]
@="C:\\Windows\\System\\PreviewPrint.tlb"[HKEY_CLASSES_ROOT\TypeLib\{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}\1.0\HELPDIR]
@="C:\\Windows\\System"[HKEY_CLASSES_ROOT\PreviewPrint.Document]
@="Previe Document"[HKEY_CLASSES_ROOT\PreviewPrint.Document\CLSID]
@="{D5E5B1A6-68E7-11D2-BEF9-0080C770FCBD}"[HKEY_CLASSES_ROOT\Interface\{D5E5B1A8-68E7-11D2-BEF9-0080C770FCBD}]
@="IPreviewPrint"[HKEY_CLASSES_ROOT\Interface\{D5E5B1A8-68E7-11D2-BEF9-0080C770FCBD}\ProxyStubClsid]
@="{00020420-0000-0000-C000-000000000046}"[HKEY_CLASSES_ROOT\Interface\{D5E5B1A8-68E7-11D2-BEF9-0080C770FCBD}\ProxyStubClsid32]
@="{00020420-0000-0000-C000-000000000046}"[HKEY_CLASSES_ROOT\Interface\{D5E5B1A8-68E7-11D2-BEF9-0080C770FCBD}\TypeLib]
@="{D5E5B1A7-68E7-11D2-BEF9-0080C770FCBD}"
"Version"="1.0"[HKEY_CLASSES_ROOT\CLSID\{D5E5B1A6-68E7-11D2-BEF9-0080C770FCBD}]
@="Previe Document"[HKEY_CLASSES_ROOT\CLSID\{D5E5B1A6-68E7-11D2-BEF9-0080C770FCBD}\ProgID]
@="PreviewPrint.Document"[HKEY_CLASSES_ROOT\CLSID\{D5E5B1A6-68E7-11D2-BEF9-0080C770FCBD}\InprocHandler32]
@="ole32.dll"[HKEY_CLASSES_ROOT\CLSID\{D5E5B1A6-68E7-11D2-BEF9-0080C770FCBD}\LocalServer32]
@="C:\\Windows\\System\\PreviewPrint.Exe"
解决方案 »
- 我调用Exp()函数总是报"实时错误'6'",如何解决啊?
- 将WORD文档以二进制形式读入内存,如何直接显示出来?不保存成文件。
- 怎样判断当前登陆windows用户是否 是域用户??
- 请问有确定好用的去除字符串中空格的函数吗?
- 如何获得与winsock连接的远端的ip地址
- 在先等待--100分 如何用vb取得192.168.8.36(非本机)的时间
- asp传值问题
- 这张表怎么建?是一个有趣的问题,更是一个有意义的问题
- 数据库高手过来看!
- datagrid 为何没有显示内容
- 后缀为ASP的文件用什么程序可以打开啊 !
- 使用VB对visual foxpro的表进行操作,到底能不能实现事务呢?我发现都不能回滚的,该怎么做呢?
B:分析reg文件格式,用注册表API读写注册表
新版:
http://www.sqreg.com/list.asp?id=243
http://www.sqreg.com/list.asp?id=244
http://www.sqreg.com/list.asp?id=245
http://www.sqreg.com/list.asp?id=246
http://www.sqreg.com/list.asp?id=247
http://www.sqreg.com/list.asp?id=248
http://www.sqreg.com/list.asp?id=249
http://www.sqreg.com/list.asp?id=250
http://www.sqreg.com/list.asp?id=251旧版:
http://www.sqreg.com/file/vb/reg_01.htm
http://www.sqreg.com/file/vb/reg_02.htm
......
http://www.sqreg.com/file/vb/reg_07.htm
ProgID="PreviewPrint.Document"
可以这样访问
set obj=createobject("PreviewPrint.Document")你自己可以新建一个activex exe工程,编译后打开注册表看看,一模一样
你试试就知道了
你想干啥啊?
你执行这个注册表文件就行了啊。附带一段资料看看
注册表中的信息
当一个组件注册后,我们就可以通过前期绑定或者后期绑定来使用。事实上,组件注册后会在注册表中写入大量的信息,理解这些,对于后面的章节都有很大的帮助当一个组件注册后,比如该组件的工程名project,类名class1,会在注册表中的以下位置出现:
HKEY_CLASSES_ROOT\project.class1和HKEY_CLASSES_ROOT\CLSID在HKEY_CLASSES_ROOT\project.class1这个键下面,会看到Clsid子项。而这个子项会出现在HKEY_CLASSES_ROOT\CLSID下面,从而使两部分相联系起来。
这个主要是为了OLE和早期COM的兼容。还有HKEY_CLASSES_ROOT\TypeLib和HKEY_CLASSES_ROOT\Interface看看HKEY_CLASSES_ROOT\CLSID下面,找到我们刚才在HKEY_CLASSES_ROOT\
project.class1看到的Clsid,比如是{A85899CB-A752-40AA-9F38-DCC4384C5EBD}
我们对下面的一些子项进行说明,请注意根据组件的不同,子项也会有不同
ProgID:程序标志,由项目名称和类名两部分组成。如: project.class1
LocalServer32:进程外组件,如ActiveX EXE这样的进程外服务器中的组件需要该子键
该子键保存了服务器文件的物理路径。
InprocServer32:进程内组件,如ActiveX DLL这样的进程内服务器中的组件需要该子键
该子键保存了服务器文件的物理路径。
TypeLib:类型库。它所对应的数据在HKEY_CLASSES_ROOT\TypeLib下面互相联系。
Vb的工程->引用对话框,就是通过该键来填充列表的。
//请问如何在VB中实现下面这个.reg文件的功能?那你是想用VB实在什么功能呢?
if dir(strfile)<>"" then
Shell("Regedit.exe /s " & strfile, vbNormalFocus)
end if
不就好了,题目实在是令人费解``````````