'------------------------------------------------------------------------------
' ---
'Aufbau von resMid.rc :
'//**
'1001    CUSTOM  DISCARDABLE     "test.mid"
'------------------------------------------------------------------------------
' ---
'Kompilierung der Resource-Datei erfolgt durch : compile.bat
'Aufbau Compile.bat: RC.EXE + RCDLL.DLL müssen sich im Kompilierungspfad 
' befinden.
'RC /fo resMid.res resMid.rc
'------------------------------------------------------------------------------
' ---
'
'N.G.:15.03.03.do.(c)
Private Declare Function mciSendString Lib "winmm.dll" _
                                Alias "mciSendStringA" _
                                (ByVal lpstrCommand As String, _
                                ByVal lpstrReturnString As String, _
                                ByVal uReturnLength As Long, _
                                ByVal hwndCallback As Long) _
                                As Long
 
Private Declare Function mciGetErrorString Lib "winmm.dll" _
                                Alias "mciGetErrorStringA" _
                                (ByVal dwError As Long, _
                                ByVal lpstrBuffer As String, _
                                ByVal uLength As Long) _
                                As Long
'The GetShortPathName function obtains the short path form of a specified input 
' path.
'Return Values:
'           If the function succeeds, the return value is the length, in 
' characters, of the string
'           copied to lpszShortPath, not including the terminating null 
' character.
'
'           If the function fails due to the lpszShortPath buffer being too 
' small to
'           contain the short path string, the return value is the size, in 
' characters,
'           of the short path string. You need to call the function with a 
' short path
'           buffer that is at least as large as the short path string.
Private Declare Function GetShortPathName Lib "kernel32" _
                                Alias "GetShortPathNameA" _
                                (ByVal lpszLongPath As String, _
                                ByVal lpszShortPath As String, _
                                ByVal cchBuffer As Long) _
                                As Long
 
Private Declare Function FindFirstFile Lib "kernel32" _
                                Alias "FindFirstFileA" _
                                (ByVal lpFileName As String, _
                                lpFindFileData As WIN32_FIND_DATA) _
                                As Long
 
Private Declare Function FindClose Lib "kernel32" _
                                (ByVal hFindFile As Long) _
                                As Long
 
Private Type FILETIME
    dwLowDateTime           As Long
    dwHighDateTime          As Long
End Type
 
Private Const MAX_PATH = 260
 
Private Type WIN32_FIND_DATA
    dwFileAttributes        As Long
    ftCreationTime          As FILETIME
    ftLastAccessTime        As FILETIME
    ftLastWriteTime         As FILETIME
    nFileSizeHigh           As Long
    nFileSizeLow            As Long
    dwReserved0             As Long
    dwReserved1             As Long
    cFileName               As String * MAX_PATH
    cAlternate              As String * 14
End Type