vb6中如何在外部执行一个.swf动画文件

来源：百度知道 编辑：UC知道 时间：2024/06/06 10:12:16
用他自己的关联打开播放器自动播放。就好像我们在文件夹里直接双击打开flash动画一样。

Option Explicit
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 Command1_Click()
ShellExecute Me.hwnd, "Open", "D:\1.swf", vbNullString, App.Path, 1
End Sub