如何做一个打开本地磁盘文件的对话框打开一个视频文件

Question

我想做一个播放器,但不知道如何用delphi做一个打开本地磁盘文件的对话框,可以打开随便的任何一个视频文件?
如果可以,可以给我一段源代码让我借鉴一下吗,谢谢!

Answer 1

给你个例子，自己看看吧！with SaveDialog1 do
  begin
    DefaultExt:='xml';
    Filter := '*.xml';
    Execute;
    edit1.Text := FileName;
    save := filename;
    Form2.ShowModal;
  end;

Answer 2

“DefaultExt:='xml';
      Filter := '*.xml';”中的xml是你需要打开文件的格式，你可以自己改一下，记得添加一个SaveDialog控件哦！   
    

Answer 3

好的,谢谢你,我先试一下.
我想要那种类似于windows打开保存文件风格的对话框,这个可以做到吗?

Answer 4

你把Dialog的Filter属性设置好就可以啦。