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 以低用户权限启动一个进程.比如vista或者win7中的ie

Delphi xe10 对 json的解析应用

Delphi 判断指定字符串是否开头 startstext用法

Delphi dos编程

Delphi 压缩图片(bmp、jpg、png)

Delphi 提取标签之间的字符串（重复标签）

Delphi怎么样选择pagecontrol1的分页

Delphi 判断尾串是否匹配,不分大小写

Delphi idhttp1下载文件防止假死

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

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