分享

vb的资源释放调用

 hdzgx 2017-10-26 发布于河北

把“一个外部程序放到自己写的程序里面  要用的时候再释放

出来调用  关闭程序的时候便删除那个文件“ 这种方法怎么实现呢  其实挺简单的

我们先把文件作成资源文件(.res)然后再程序里面  然后去释放这个资源  接着调用就可以了

看我操作   我先设计好界面  我是拿QQ88.exe这个作为例子的  然后我们在外部程序 里面的外

部程序管理器里面加在 vb6资源编辑器  然后会出现这么个东西  我们现在把qq88.exe 作成资源文件   我们选择哪个 添加自定义资源   然后保存就可以了  在相关文档中就出现了这个资源了   接下来就是怎么释放他  也是我们讲的主题了  具体看下面代码  我们测试仪下 看到没有  这个释放出来了   然后我们关闭 的时候 便会调用Kill ("s.exe")  来删除文件 
这里你们释放的目录是可以自定义的 

   
程序完整代码如下:
//////////////////////////////////////////////////////////////////////////

Private Sub Command1_Click()
Dim App1() As Byte   
If Dir(App.Path & "\S.exe") = "" Then  '检测是否存在s.exe
  App1 = LoadResData(101, "CUSTOM")   '如果为空,读取资源文件中的(101,"custom")字符串   Open App.Path & "\S.exe" For Binary As #2 '打开 s.exe用二进制的方式写入数据
  Put #2, , App1      
  Close #2  '关闭 这里还要说明一下  这里所谓的打开并不是指运行  而是用二进制方式打开文件写入原始数据  
End If
Shell "s.exe", vbNormalFocus    '运行这个文件
End Sub

Private Sub Form_unLoad(Cancel As Integer) '窗体卸载时删除这个文件
Kill ("s.exe")
End Sub

/////////////////////////////////////////////////////////////////////////

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多