一个关于.exe文件调用的问题

[yue_qiong]

我在些程序的时候 需要借用已有的 计算器程序 他是一个.exe文件 我在程序里这么样可以调用他成为我的 程序的一部分 用一个command就可以搞定
谢了
我急需
拜托

[lihonggen0]

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long




Private Sub Form_Load()
ShellExecute Me.hWnd, "open", "C:\WINDOWS\CALC.EXE", vbNullString, vbNullString, SW_SHOW


End Sub

[geomdl]

shell "c:\winnt\system32\calc.exe"

[wangchong]

调用EXE的文件直接用SHELL就行了!!

[孙小雄]

Shell 函数示例
本示例使用 Shell 函数来完成一个用户指定的应用程序。

' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' 完成Calculator。

Shell 函数

执行一个可执行文件，返回一个 Variant (Double)，
如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

Shell( pathname [ , windowstyle] )

windowstyle 命名参数有以下这些值：


vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。

[孙小雄]

第2

如果你是想 实现 "我在程序里这么样可以调用他成为我的 程序的一部分 "

理解这句话产生的意思会很多



以下把它变为自己的类似模式窗口

Option Explicit
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000

Private Sub Command1_Click()
Dim i As Long
Dim r As Long
Dim p As Long
i = Shell("notepad.exe", vbNormalFocus)
p = OpenProcess(SYNCHRONIZE, False, i)
r = WaitForSingleObject(p, INFINITE)
r = CloseHandle(p)
MsgBox "记事本已经关闭"
End Sub

[zleeway]

就算这样把计算器程序运行了起来，也无法把计算的结果取回来呀。

[lkcs]

shell "c:\winnt\system32\calc.exe"
取结果？？？？？？
你不是想调出计算器吗？
如果是的话shell就可以了

[yue_qiong]

兄弟们 可以不用完整的路径吗