Скачать: CL | DM;

директория   Найти похожие ветки 

← →
xoluay ©   (2003-12-28 20:45) [0]

Как узнать путь текущей дерикторию (то есть из которой была запущена программа)?

---

← →
dmk ©   (2003-12-28 20:56) [1]

ParamStr(0)

---

← →
Номолос   (2003-12-28 22:50) [2]

Прим.: Это только модуль. Чтобы директорию найти, надо сам файл отсечь.

---

← →
Vulko ©   (2003-12-29 00:47) [3]

Можно вот так:
ExtractFilePath(Application.ExeName)

---

← →
SH ©   (2003-12-29 13:58) [4]

Имхо, GetCurrentDir

---

← →
YuRock ©   (2003-12-29 14:06) [5]

Вот правельнейший вариант:
ExtractFilePath(ParamStr(0))

P.S. > SH ©
GetCurrentDir - неправильно. CurrentDir может меняться, а дир., из которой запущена программа - неизменна.

---

← →
VMcL ©   (2003-12-29 14:23) [6]

>> xoluay © (28.12.03 20:45)
>>Как узнать путь текущей дерикторию (то есть из которой была запущена программа)?

Так все-таки текущей или той, из которой запущена программа?
Если текущей --> SH © (29.12.03 13:58) [4]
Если же каталог программы --> Vulko © (29.12.03 00:47) [3] или ExtractFilePath(ParamStr(0))

---

← →
panov ©   (2003-12-29 19:51) [7]

function GetExePath: String;
var
Buffer: array[0..1023] of Char;
begin
Result := "";
SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer)));
end;

---

← →
VMcL ©   (2004-01-05 13:41) [8]

2 panov: а стандартные функции не рулят?

function ParamStr(Index: Integer): string;
var
P: PChar;
Buffer: array[0..260] of Char;
begin
Result := "";
if Index = 0 then
SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer)))
else
//..
end;

Те же яйца, вид сбоку :) только зачем лишний код плодить...

---

← →
panov ©   (2004-01-05 14:27) [9]

>VMcL © (05.01.04 13:41) [8]

Если человеку нужна одна функция, зачем весь модуль system цеплять?-)

---

← →
YuRock ©   (2004-01-05 14:37) [10]

> panov © (05.01.04 14:27) [9]

SysUtils (Вы наверное имели в виду)

---

← →
panov ©   (2004-01-05 14:48) [11]

>YuRock © (05.01.04 14:37) [10]

Так ParamStr вроде бы в System определена?-)

---

← →
YuRock ©   (2004-01-05 14:59) [12]

> panov © (05.01.04 14:48) [11]

Так то оно так, но я имел в виду ExtractFilePath.

Кстати, System, на сколько я понимаю, и не надо подключать - он же всегда подключен!..

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.017 c