Dim TempFile() As Byte Dim FileNum As Integer TempFile = LoadResData(101, "CUSTOM") FileNum = FreeFile Open GetSysDir + "\myocx.ocx" For Binary Access Write As #FileNum Put #FileNum, , TempFile Close #FileNum Shell GetSysDir + "\regsvr32.exe /s " + GetSysDir + "\myocx.ocx" 把以上代码代码加在sub main()里面,完成控件的释放和注册。 呵呵,把分全给我吧。
Dim FileNum As Integer
TempFile = LoadResData(101, "CUSTOM")
FileNum = FreeFile
Open GetSysDir + "\myocx.ocx" For Binary Access Write As #FileNum
Put #FileNum, , TempFile
Close #FileNum
Shell GetSysDir + "\regsvr32.exe /s " + GetSysDir + "\myocx.ocx"
把以上代码代码加在sub main()里面,完成控件的释放和注册。
呵呵,把分全给我吧。
GetSysDir是自己写的function用来获得系统目录,regsvr32.exe命令的/s参数不显示注册成功与否的信息。