Как определить папку работ-го приложения?

← →
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-шник

поправка
ExtractFilePath - на самом деле путь
а директория определяется
ExtractFileDir

← →
Плохиш_ (2003-09-16 10:50) [9]

>AGGRESSOR © (16.09.03 10:46) [6]

c:\tmp> d:\nnn\prog.exe
Ну-ка, раскажи какой директорий будет/станет рабочей?

И про дядю Билли то же не надо.

> c:\tmp> d:\nnn\prog.exe
Это все верно, но вопрос был "Как определить ПАПКУ раб-го приложения", а это немного другое. А вообще лучше сделать как сказал ZEE ©

Как определить папку работ-го приложения? Найти похожие ветки