试过winexec不行,请教高手们。这里有别人用VB写的程序,我不太熟悉VB,不知道在VC里该怎么转化,谢谢!
解决方案 »
- 分享下自己的源代码(DirectShow),顺便请人帮忙看下程序的实现方式是否正确
- 请问POINT和CPoint有甚么区别!?
- 求DDK资料
- 急!VC链接ORACLE数据源(ODBC方式),首先判断某表是否存在于数据库中,若不存在,创建该表,如何实现。高手留步……指点啊
- DLL提供的接口函数GetValue()怎么用?
- 送出100分没商量:问一个关于ATL,SOCKET的问题(极简单)
- 想做个使用imap idle的push email 客户端,能提供点建议或代码吗?
- 系统声卡切换的实现
- 如果获得另一个程序的AfxFrameOrView42的内容
- 送分咯,送分咯,没什么问题难得到高手你们的!
- 关于复选框的 问题,急!!!!
- 我在内存中生成一段HTML, 请问如何才能让 WebBrowse 控件来显示它?
Dim MyXL As Object '用于存放
'Microsoft Excel 引用的变量。
Dim ExcelWasNotRunning As Boolean '用于最后释放的标记。'测试 Microsoft Excel 的副本是否在运行。
On Error Resume Next '延迟错误捕获。
'不带第一个参数调用 Getobject 函数将
'返回对该应用程序的实例的引用。
'如果该应用程序不在运行,则会产生错误。
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear '如果发生错误则要清除 Err 对象。
'检测 Microsoft Excel。如果 Microsoft Excel 在运行,
'则将其加入运行对象表。
DetectExcel'将对象变量设为对要看的文件的引用。
Set MyXL = GetObject(sExcelName)'设置其 Application 属性,显示 Microsoft Excel。
'然后使用 MyXL 对象引用的 Windows 集合
'显示包含该文件的实际窗口。
MyXL.Application.Visible = True
Dim i As Integer
For i = 0 To MyXL.Parent.Windows.Count - 1
MyXL.Parent.Windows(i + 1).Visible = True
Next i
'在此处对文件
'进行操作。
' ...
'如果在启动时,Microsoft Excel 的这份副本不在运行中,
'则使用 Application 属性的 Quit 方法来关闭它。
'注意,当试图退出 Microsoft Excel 时,
'标题栏会闪烁,并显示一条消息
'询问是否保存所加载的文件。
End SubPrivate Sub DetectExcel()
'该过程检测并登记正在运行的 Excel。
Const WM_USER = 1024
Dim hWnd As Long
'如果 Excel 在运行,则该 API 调用将返回其句柄。
hWnd = FindWindow("XLMAIN", 0)
If hWnd = 0 Then '0 表示没有 Excel 在运行。
Exit Sub
Else
'Excel 在运行,因此可以使用 SendMessage API
'函数将其放入运行对象表。
SendMessage hWnd, WM_USER + 18, 0, 0
End If
End Sub
这个是VB写的程序
WinExec应该都可以打开