main.bas

OpenPlayer代码

Attribute VB_Name = "MainBas"
'===========================
'程序最选运行的函数(入口)
'===========================

Sub Main()
    Dim arg As String
    Dim iniFile As String
   
    iniFile = App.Path & IIf(Len(App.Path) > 4, "\OpenPlayer.ini", "OpenPlayer.ini")
    
    
    
    '===============================
    'command()  取得运行时的参数
    '===============================
    arg = UCase(command)
    '如果是拖放的，文件名没有加双引号“ " ”，如果是用打开的，文件加了双引号“ " ”
    '34为 “ " ”的ASCII码
    If InStr(arg, Chr(34)) <> 0 Then
        arg = Mid(arg, 2, Len(arg) - 2)
    End If
   If myReadINI(iniFile, "OpenPlayer", "RunOnce", "") <> 0 Then
        myWriteINI iniFile, "OpenPlayer", "RunOnce", "0"
        arg = App.Path & IIf(Len(App.Path) > 4, "\AboutOpenPlayer.SWF", "AboutOpenPlayer.SWF")
   End If
    
    '如果程序已经运行,将要打开的文件(如果有)的文件路径写放ini文件里,并退出
    If App.PrevInstance Then
       myWriteINI iniFile, "OpenFile", "FileName", arg
       End
    End If
    
   ControlForm.Show                                 '显示主窗口
     
   If arg <> "" Then                                '如果有文件要播放
       Play.Show                                    '显示播放窗口
       Play.OpenFlash (arg)                         '播放
                                                    '在列表框中添加这个文件
       ControlForm.List(0).AddItem "[" & (ControlForm.List(0).ListCount + 1) & "]" & getBaseName(arg)
       ControlForm.List(1).AddItem (arg)
    End If
      
End Sub