Shared Function _ FindExecutable(ByVal fileName As String, ByVal fileDir As String, _ ByVal buffer As System.Text.StringBuilder) As IntegerEnd Function’ Returns the name and path of the EXEcutable file that is
Shared Sub _ SHChangeNotify(ByVal wEventId As Integer, ByVal uFlags As Integer, _ ByVal dwItem1 As Integer, ByVal dwItem2 As Integer)End Sub’ Create the new file association” Extension is the extension
Shared Function _ mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As _ String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As _ IntegerEnd Function’ helper routine; executes a MCI command
Shared Function _ mciGetErrorString(ByVal dwError As Integer, _ ByVal lpstrBuffer As System.Text.StringBuilder, ByVal uLength As Integer) _ As IntegerEnd Function’ Get the description of a MCI error.” ErrorCode is the
Shared Function _ GetShortPathName(ByVal lpszLongPath As String, _ ByVal lpszShortPath As System.Text.StringBuilder, _ ByVal cchBuffer As Integer) As IntegerEnd Function’ Play an AVI file synchronously without the audio track.” fileName
Shared Function _ mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As _ String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As _ IntegerEnd FunctionSub OpenCDDoor() mciSendString(“Set CDAudio Door Open Wait”,
Shared Function _ GetShortPathName(ByVal lpszLongPath As String, _ ByVal lpszShortPath As System.Text.StringBuilder, _ ByVal cchBuffer As Integer) As IntegerEnd Function’ Play the audio track of an AVI file.’ fileName is
Shared Function _ waveOutGetNumDevs() As IntegerEnd FunctionFunction IsSoundCardSupported() As Boolean Return waveOutGetNumDevs() >= 1End Function
Const SND_ASYNC = &H1 Shared Function _ PlaySound(ByVal lpszName As String, ByVal hModule As Integer, _ ByVal dwFlags As Integer) As IntegerEnd Function’ Play a WAV file.” fileName is a