Показать сообщение отдельно
  #6  
Старый 05.03.2010, 17:05
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
 
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
По умолчанию

Цитата:
Сообщение от NIch
Да ну??? Все отлично работает не только в консольных...
К примеру приложение установлено в D:\Games
Так вот
Код:
((extractfilepath(paramstr(0))+ 'Images\Image.BMP'))
вернет путь
D:\Games\Images\Image.BMP
Проверено)))
NIch я это к тому, что в консольном приложении вместо ExtractFilePath(Application.ExeName); следует использовать ExtractFilePath(ParamStr(0));
__________________
Велик и могуч наш Object Pascal !
ICQ: 357-591-887
Ответить с цитированием