Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 07.08.2008, 10:54   #1
Pinya
Пользователь
 
Регистрация: 17.12.2007
Сообщений: 37
По умолчанию Определение пути к файлу

Всем доброго времени суток. Тут созрел вопросик.
Есть полностью рабочая ф-ия:
Код:
// Возращает выбранный путь каталога
function GetPath(mes: string):string;
var
  Root: string;
  pwRoot : PWideChar;
  Dir: string;
begin
  Root := '';
  GetMem(pwRoot, (Length(Root)+1) * 2);
  pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);
  if SelectDirectory(mes, pwRoot, Dir)
     then
          if length(Dir) = 2
              then GetPath := Dir+'\'
              else GetPath := Dir
     else
          GetPath := '';
end;
Код:
var
  Path: string;
begin
  Path := GetPath('Выберите папку');
  if Path <> ''
     then Form2.Label1.Caption := Path;
А вопросик такой.
Как возвратить местоположение не каталога а файла?

Последний раз редактировалось Pinya; 07.08.2008 в 10:56.
Pinya вне форума Ответить с цитированием
Старый 07.08.2008, 11:22   #2
Ozerich
Студент 1 курса
Форумчанин Подтвердите свой е-майл
 
Аватар для Ozerich
 
Регистрация: 27.06.2008
Сообщений: 959
По умолчанию

компонент openDialog
C++(STL, QT, WinInet) / DHTML(CSS) / JavaScript / PHP Developer
Ozerich вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Изменение пути к таблице .dbf Tanuska___:) БД в Delphi 16 22.04.2008 14:52
Пути к данным Лубышев Общие вопросы Delphi 3 21.01.2008 18:56
алгоритмы поиска пути Iceman Gamedev - cоздание игр: Unity, OpenGL, DirectX 5 29.10.2007 20:47
Системные пути Lonix Общие вопросы Delphi 8 14.09.2007 16:10
Выбор пути к папке Македонский Общие вопросы Delphi 2 28.08.2007 16:01


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS