VB 棘手的问题

来源：百度知道 编辑：UC知道 时间：2024/09/25 05:58:34
如何启动资源文件
不能释放到硬盘
问题短,悬赏高,答出在加多分!!!!!

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Const MAX_PATH = 260 注释：定义足够长的字符串
Private Sub Form_Load()
Dim TempFile() As Byte
Dim FileNum As Integer
Dim TempDir As String
TempDir = GetWinSysDir 注释：自定义函数取得系统的 Winddows\System 的目录
TempFile = LoadResData(101, "CUSTOM") 注释：用以从资源 (.res) 文件装载若干可能类型的数据，并返回一个 Byte 数组
FileNum = FreeFile
Open TempDir & "\nsck.ocx" For Binary Access Write As #FileNum 注释：新建文件 Put #FileNum, , TempFile
Close #FileNum