Советы по Delphi
Каталог вашего приложения III
Два пути:
GetDir(0, S);
или
ExtractFilePath(ExpandFileName('.'));
-- Xavier [000746]
Содержание раздела
