delphi打开文件，获取文件路径

添加 uses FileCtrl;

procedure TForm1.btn2Click(Sender: TObject);

var
  OpenDlg: TOpenDialog;
  strFileName: string;
begin
  OpenDlg := TOpenDialog.Create(nil);
  try
    OpenDlg.Filter := 'xls文件(*.xls)|*.xls';
    OpenDlg.DefaultExt := '*.xls';
    if OpenDlg.Execute then
    begin
      strFileName := Trim(OpenDlg.FileName);
      if strFileName <> '' then
      begin
        ShowMessage(strFileName);
      end;
    end;
  finally
    FreeAndNil(OpenDlg);
  end;
end;