美好的一天...... 我想知道TMediaPlayer与Delphi接受什么样的扩展...音频和视频......
(MP1, MP2, MP3, Wma, WAV etc... vídeo AVI, MP4 ETC...
没有编解码器的哪些扩展......他玩?他扮演每一个编解码器?
因为我想知道延期何时不存在......
if (F.Name <> '.') And (F.Name <> '..') then
if Sub = True then
begin
TempNome := Diretorio+'\' + F.Name;
ListarArquivos(TempNome, True);
end;
end
else
begin
if verificaExtesao(F.Name) then
Begin
ContaArquivos := ContaArquivos +1;
memLista.Lines.Add(Diretorio+'\'+F.Name);
Label2.Caption := IntToStr(ContaArquivos);
End;