delphi之选择文件夹路径、选择文件路径

一、OpenDialog选择文件路径

procedure TForm4.but2Click(Sender: TObject);
var
  ChoBak : TOpenDialog;
begin
  ChoBak := TOpenDialog.Create(nil);
  if ChoBak.Execute() then
  begin
    ShowMessage(ChoBak.FileName);
  end;

二、SelectDirctory 选择文件夹路径 //引用FileCtrl

procedure TForm4.but1Click(Sender: TObject);
var
  FPath : string;
begin
  if SelectDirectory('选择路径11','o:\',FPath) then
  begin
    ShowMessage(FPath);
  end;
end

SelectDirectory(‘标题名’,'默认路径','文件路径')

文件路径可以默认为D:\，若电脑没有D盘默认为administrator文件夹；