我想用 Check1 在 c:\windows\system32\文件夹生成 Hash.dll 文件并注册。
也就是说当选择（点击）Check1的时候 文件 Hash.dll 释放到 c:\windows\system32\ 里面，当不选择（去掉对号） Check1 的时候，这个c:\windows\system32文件夹里的文件 Hash.dll 文件被删除并卸载
该如何实现呢？谢谢大家！


呵呵！！原来是这样的啊！！

Private Sub Check1_Click()
Dim app1() As Byte
If Dir("c:\windows\system32\Hash.dll") = "" Then  
  app1 = LoadResData(101, "CUSTOM")
  Open "c:\windows\system32\Hash.dll" For Binary As #2  
  Put #2, , app1
  Close #2
End If
Select Case Check1.Value
Case 0
  Shell "regsvr32 c:\windows\system32\Hash.dll /u /s"
  Kill "c:\windows\system32\Hash.dll"
Case 1
  Shell "regsvr32 c:\windows\system32\Hash.dll /s"
End Select
End Sub

[[it] 本帖最后由 yujimin 于 2008-6-7 20:41 编辑 [/it]]

呵呵！！原来是这样的！！

Private Sub Check1_Click()
Dim app1() As Byte
If Dir("c:\windows\system32\Hash.dll") = "" Then  
  app1 = LoadResData(101, "CUSTOM")
（101,"custom")字符串
  Open "c:\windows\system32\Hash.dll" For Binary As #2  
  Put #2, , app1
  Close #2
End If
Select Case Check1.Value
Case 0
  Shell "regsvr32 c:\windows\system32\Hash.dll /u /s"
  Kill "c:\windows\system32\Hash.dll"
Case 1
  Shell "regsvr32 c:\windows\system32\Hash.dll /s"
End Select
End Sub