不用那么麻烦!
Like this :
Shell CALC.EXE
Like this :
Shell CALC.EXE
解决方案 »
- 有谁知道下拉按钮是怎么做的,就像IE浏览器的后退按钮样式?
- 不规则的多边形面积的计算-----我在多媒体那个区问了,不过人好象不多又到这里来
- 紧急求教:十六进制怎么转换成二进制啊?
- 哪里有制作带启动的ISO文件的控件或源代码?
- “十万火急”+“火烧眉毛”,求最优方法,做过数据库项目的help密,还可以加分吖
- 如何比较两个字符串是否相似????
- winsock 为什么不能连接internet上的两台机子?
- 为什么我的DATAGRID不显示数据,是空的
- 怎样编一个没有窗口的供他人调用的VB的后台程序,(急!!)
- VB怎样读取注册表获得系统可用串口?
- 一个初学者的求救??
- 有关读取一格式化文本文件内容到数据库中的速度问题:(请大伙帮帮忙,谢谢!)
Private Declare Function GetDesktopWindow Lib "user32" () As LongFunction StartDoc(DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
'change "Open" to "Explore" to bring up file explorer
StartDoc = ShellExecute(Scr_hDC, "open", DocName, "", "C:\", 1)
End Function
调用这个函数就可以了,docname是想执行的程序路径
Scr_hDC = GetDesktopWindow()
ShellExecute(Scr_hDC, "open", "notepad", "", "C:\", 1)