Crear un formulario y escribir:

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

Private Sub Form_Load()
CmdStr$ = "play e:\media\avi\nombre.avi fullscreen"
ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&)
End Sub

Regístrate y recibe un email semanal con los últimos trucos informáticos. Pulsa aquí!!

Este truco ha recibido 3 votaciones| Nota media: 5Selecciona tu Puntuación: