AVI no player padrão

Delphi

24/10/2004

Como posso executar um vídeo avi no meu player padrão????


Emir Neto

Emir Neto

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

24/10/2004

Colega,

Se for um arquivo AVI válido, basta:

    Display = Panel1
    FileName = ´C:\WINDOWS\export1.avi´



GOSTEI 0
Emir Neto

Emir Neto

24/10/2004

Não entendi, pois tenho um menu e quando aperto um botão ele abre o vídeo correspondente tipo assim:

ExtractFilePath(ParamStr(0))+´arquivo.avi´


GOSTEI 0
Afarias

Afarias

24/10/2004

Vc quer abrir no Player padrão do Windows, é isso??

var
  FileName: string;
begin
  FileName := ExtractFilePath(ParamStr(0)) + ´arquivo.avi´;
  ShellExecute(Handle, ´open´, PChar(FileName), nil, nil, SW_NORMAL);
end;


ShellExecute está definida na unit ShellApi (uses ShellApi)



T+


GOSTEI 0
Emir Neto

Emir Neto

24/10/2004

Funcionou perfeitamente, obrigado


GOSTEI 0
POSTAR