我有个程序运行时需要一个Mswinsck.ocx,别人没这个文件都要复制进system32里,很麻烦..有没有方法解决?!~
參考答案:1.简单的是你用VB的打包工具打包。
2.复杂的就是用程序本身自己复制到系统目录下
'取得系统路径API
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'取得系统路径
Function GetSystemDir() As String
Dim s As String * 256
Dim l As Long
l = GetSystemDirectory(s, 255)
Dim b As String
b = Left(s, InStr(s, Chr(0)) - 1)
GetSystemDir = b
End Function
在你的form_load里写
Dim appname As String '取得文件的路径
'一定要把Mswinsck.ocx和你的EXE文件放在一个目录下
Dim newname As String
appname = App.Path + "\Mswinsck.ocx"
newna = GetSystemDir + "\Mswinsck.ocx"
FileCopy appname, newname
这样就自动拷贝到你朋友的机器里了
