| Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long '// --- Modify FILE_TO_OPEN constant as appropriate --- Const FILE_TO_OPEN = "C:\windows\help\explorer.avi" Dim strCmdStr As String Dim lngReturnVal As Long strCmdStr = "play " & FILE_TO_OPEN & " fullscreen " lngReturnVal = mciSendString(strCmdStr, 0&, 0, 0&) |
Play an .AVI file in full screen |
Freelance ASP PHP web development | Web developer India Web development India| Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design