|
Como rodar vídeos...
Adicione um componente 'MediaPlayer', da guia 'System', e coloque o código
abaixo por exemplo no evento onClick de um botão:
if opendialog1.execute then
begin
mediaplayer1.filename:= opendialog1.filename;
mediaplayer1.open;
mediaplayer1.Perform (wm_lbuttondown,0,$00090009);
mediaplayer1.Perform (wm_lbuttonup,0,$00090009);
end;
|