乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 43|回复: 3

[原创]能注册同目录下所有dll和ocx文件的程序

[复制链接]

5

主题

8

帖子

1

银币

初来乍到

Rank: 1

铜币
28
发表于 2007-1-10 20:35:00 | 显示全部楼层 |阅读模式
一个能注册同目录下或子目录下所有dll和ocx文件的程序。

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

13

主题

396

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
448
发表于 2007-1-11 08:11:00 | 显示全部楼层
希望有源程序供大家学习
回复

使用道具 举报

1

主题

12

帖子

3

银币

初来乍到

Rank: 1

铜币
16
发表于 2007-1-11 10:27:00 | 显示全部楼层
好东西,收下了
回复

使用道具 举报

8

主题

20

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
52
发表于 2007-1-12 09:56:00 | 显示全部楼层
Public Declare Function GetWindowsDirectoryA Lib "kernel32" _
  (ByVal lpBuffer As String, ByVal nSize As Long) As Long
' ************************************************************************************
'
' 函数说明: 加载DLL文件
'
' ************************************************************************************
Public Sub LoadDll()
  On Error Resume Next
  
  Dim WinPath As String * 255
  Dim MeFile As String
  Dim sysFile As String
  Dim strPath As String
  Dim i As Integer
  
  Call GetWindowsDirectoryA(WinPath, Len(WinPath))
  i = 1
  While Asc(Mid(WinPath, i, 1)) > 40
    i = i + 1
  Wend
  MeFile = Replace(Mid(WinPath, 1, i - 1) & "\system32\CADConverter.dll", "\\", "\")
  sysFile = Replace(App.Path & "\CADConverter.dll", "\\", "\")
  Call FileCopy(sysFile, MeFile)
  strPath = "regsvr32 /s " & MeFile
  Shell strPath, vbHide
End Sub
这是一个注册CADConverter.dll的程序,将其注册到系统的sysstem32目录下.
要想注册整个目录的下控件,利用Scripting.FileSystemObject对象,对一个目录下的文件遍历即可.有兴趣的自己做做吧.
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 05:42 , Processed in 1.684296 second(s), 65 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表