Olá asimoes,
O Video é em AVI? se sim pode usar a Hwgui para isso, veja um exemplo:
*********************
FUNCTION MsgRun(cMsg)
*********************
PRIVATE oTimHabla,oAnime
if cMsg=Nil
cMsg:="Aguarde em processamento...."
endif
INIT DIALOG oDlgHabla TITLE "Processando..." NOEXIT NOEXITESC ;//NOCLOSABLE;
AT 0,0 SIZE 485,95 ;
ON EXIT {|| NoSaidaF4() };
STYLE DS_CENTER +WS_VISIBLE;
COLOR Rgb(255, 255, 255)
@ 45,20 SAY oTimHabla CAPTION cMsg SIZE 465,20;
FONT HFont():Add( '',0,-12,400,,,);
BACKCOLOR Rgb(255, 255, 255)
@ 5,20 ANIMATION oAnime ;
OF oDlgHabla ;
SIZE 32,32;
FILE "res\processando.avi";
AUTOPLAY
oAnime:Play()
HWG_DOEVENTS()
ACTIVATE DIALOG oDlgHabla NOMODAL
Return Nil