Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
ВнизGetDir??? Найти похожие ветки
← →
VID (2002-04-17 02:34) [1]var path;
...
procedure tform1.onCreate(...);
begin
way := ExtractFilePath(Application.Exename);
if way[length(way)]<>"\" then way:=way+"\";
//В результате получишь путь к приложению с завершающим "\"
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c