Delphi OpenDialog使用方法

本文整理自网络，侵删。

 
var
  OpenDlg: TOpenDialog;
  strFileName: string;
begin
  OpenDlg := TOpenDialog.Create(nil);
  try
    OpenDlg.Filter := '协议文件(*.EXE)|*.EXE|全部文件(*.*)|*.*';
    OpenDlg.DefaultExt := '*.EXE';
    if OpenDlg.Execute then
    begin
      strFileName := Trim(OpenDlg.FileName);
      if strFileName <> '' then
      begin
        edtProtocolApplication.Text := strFileName;
      end;
    end;
  finally
    FreeAndNil(OpenDlg);
  end;
end;

 

相关阅读 >>

Delphi 根据扩展名的文件搜索

Delphi中查找进程及强行结束进程的方法

Delphi http远程屏幕源码

Delphi实现qq右下角弹出信息窗口

Delphi xe5 for android ttabcontrol 控件

Delphi memo 手动选择txt文本编码并读取

Delphi 文件名变小写的函数

Delphi 对指定dbgrid进行排序

Delphi xe8 androdi利用httpclient实现的一个app自动更新组件

Delphi datasnap的线程池

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi OpenDialog使用方法