директория

← →
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 © (05.01.04 14:48) [11]

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

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

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