Delphi dlgOpen的使用

procedure TForm1.btn1Click(Sender: TObject);
var strFileName,strFilePath:string;
begin
  ForceDirectories('D:/Temp' )   ;         //新建一个目录 如果存在就不要创建
  dlgOpen1.InitialDir:=('D:/Temp');        //设置打开默认的目录
  dlgOpen1.Title:='DELPHI打开对话框实例' ; //设置对话框标题
  // dlgopen1.Filter:= '所有文件(*.*)|*.*';   //设置打开的文件类型
  //lgOpen1.Filter:='可执行程序(*.exe)|*.exe' ;
  dlgOpen1.Filter:='Text files (*.txt)|*.txt|Delphi files (*.pas)|*.pas'  ;
  if dlgOpen1.Execute then
  begin
      strFilePath:=dlgOpen1.FileName;     //取得打开文件路径(含文件名)
      ShowMessage(strFilePath);
      strFileName:=ExtractFileName(dlgOpen1.FileName);  //取得打开文件名(不含路径)
      ShowMessage(strFileName);
  end ;
end;