common.bas

OpenPlayer代码

Attribute VB_Name = "Common"
'====================================================
'这些都是的全局的变量
'====================================================
Global TotalFrames As Long                      '总帧数
Global Th As Long, Tm As Long, Ts As Long       '时间
Global isFullScreen As Boolean                  '全屏
Global isHook As Boolean                        '回调
Global hFlashhwnd As Long                       'swflash.ocx控件的Hwnd
Global Zoom As Integer                          '放大/缩小
Global FH As FLASHHEADER
Global PFlashFileName As String                 '?
Global OUTTYPE As String                        '输出类型

Global ShowTrayIcon As NOTIFYICONDATA           '系统托盘

'==========================================
'取得一个文件路径名中的基本文件名
'参数:
'strFileName,文件路径名
'==========================================
Public Function getBaseName(strFileName As String)
On Error GoTo Err:
    getBaseName = Mid(strFileName, InStrRev(strFileName, "\") + 1)
    Exit Function
Err:
    getBaseName = ""
End Function

'建立错误文件报告
Public Sub CreateErrorReport(FunctionName)
    Dim logFile As String
    logFile = App.Path & IIf(Len(App.Path) > 4, "\OpenPlayer.log", "OpenPlayer.log")
    lfnNum = FreeFile
    Open logFile For Append As #lfnNum
        Print #lfnNum, Date & FunctionName & " 发生错误： " & vbCrLf & vbTab & Err.Number & Err.Description
        Err.Clear
    Close #lfnNum
End Sub