Delphi позволяет узнать полностью путь к файлу без имени самого файла. Для этого существует функция ExtractFilePath. Например если мы имеем полный путь файла "C:\Documents and Settings\int\Мои документы\doc1.doc", то "C:\Documents and Settings\int\Мои документы" будет этим самым путем.
Функция имеет следующий синтаксис:
function ExtractFilePath(const FileName: String): String;
Для закрепления материала расположим на форме компонент Label и кнопку.
Обработчик нажатия кнопки сделаем таким:
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then Label1.Caption := ExtractFilePath(OpenDialog1.FileName); end;
Нажав на кнопку открывается диалоговое окно выбора файла. Выбрав какой либо файл его путь будет показан компонентом Label.
Итог: мы познакомились с функцией ExtractFilePath.