استفاده از opendialog برای انتخاب folder

کد زیر به جای انتخاب فایل در OpenDialog، انتخاب مسیر را نشان میدهد 

var

  OpenDialog: TFileOpenDialog;

  SelectedFolder: string;

begin

OpenDialog := TFileOpenDialog.Create(nil);

try

  OpenDialog.Options := OpenDialog.Options + [fdoPickFolders];

  if not OpenDialog.Execute then

    Abort;

  SelectedFolder := OpenDialog.FileName;

finally

  OpenDialog.Free;

end;

با استفاده از کد زیر نیز میتوان نام فایل را از مسیر جدا کرد 

program ProjectExtractPathDemo;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

    Path : string ;

begin

  Path:='C:\Program Files\Borland';

  Writeln(ExtractFileName(Path));//return Borland

  Path:='C:\Program Files\Borland\';

  Writeln(ExtractFileName(Path));//return ''

  Path:='C:\Program Files\Borland\';

  Writeln(ExtractFileName(ExcludeTrailingPathDelimiter(Path)));//return Borland

  Readln;

end.

یا :

uses SysUtils;

Delete(Path, 1, LastDelimiter('\', Path));