Показать сообщение отдельно
  #8  
Старый 12.10.2009, 18:09
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от Midmal
Блин, похоже меня не так поняли, или я не правильно задал свой вопрос... Короче и проще говоря, мне надо узнать каким образом можно определить из какой папки запускается моя программа. Это можно выполнить конечно и таким образом
Код:
ShowMessage(Application.ExeName);
Но, результат поличится примерно такой G:\Soft\MyProgs\Projects1.exe
А можно ли просто получить такой результат G:\Soft\MyProgs\???
Код:
// Application.ExeName = C:\MyApp\App.exe (ещё можно ParamStr(0))
AppDir := ExtractFileDir(ParamStr(0));
я так всегда узнаю путь к ЕХЕшнику
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием