Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
ВнизКак определить папку работ-го приложения? Найти похожие ветки
← →
maxXP (2003-09-15 22:25) [0]Как определить ПАПКУ раб-го приложения?
Как опред-ся путь раб-го приложения я знаю "Application.exename"
← →
8ung (2003-09-15 22:49) [1]
function Getpath(path:string):string;
var
i : integer;
begin
Result := "";
for i := 1 to Length(path) do
begin
if pos("\",path)> 0 then
begin
Result := Result + copy(path,1,pos("\",path));
Delete(path,1,pos("\",path));
end;
end;
end;
← →
Guerrillero (2003-09-16 00:39) [2]ExtractFilePath
← →
AGGRESSOR (2003-09-16 10:29) [3]GetCurrentDir
(по умолчанию текущая директория и есть директория .exe файла)
← →
Плохиш_ (2003-09-16 10:38) [4]>AGGRESSOR © (16.09.03 10:29) [3]
По чьему умолчанию?
← →
Vovchik_A (2003-09-16 10:44) [5]ParamStr(0)
← →
AGGRESSOR (2003-09-16 10:46) [6]>Плохиш_ (16.09.03 10:38) [4]
По умолчанию дяди Билли. После запуска приложения его местоположение становится его текущей (рабочей) директорией, если другое не указано, допустим, в свойствах ярлыка.
← →
ZEE (2003-09-16 10:47) [7]ExtractFilePath(Application.ExeName)
или
ExtractFilePath(ParamStr(0))
а GetCurrentDir - текущая директория, кот. может отличаться от той где лежит exe-шник
← →
ZEE (2003-09-16 10:48) [8]поправка
ExtractFilePath - на самом деле путь
а директория определяется
ExtractFileDir
← →
Плохиш_ (2003-09-16 10:50) [9]>AGGRESSOR © (16.09.03 10:46) [6]
c:\tmp> d:\nnn\prog.exe
Ну-ка, раскажи какой директорий будет/станет рабочей?
И про дядю Билли то же не надо.
← →
AGGRESSOR (2003-09-16 11:11) [10]> c:\tmp> d:\nnn\prog.exe
Это все верно, но вопрос был "Как определить ПАПКУ раб-го приложения", а это немного другое. А вообще лучше сделать как сказал ZEE ©
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c