Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: 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 вся ветка

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.025 c
1-43610
Sirruf
2004-03-02 17:19
2004.03.14
Компонент TDBGridEh, черт бы его побрал !!!


3-43357
snake1977
2004-02-16 11:09
2004.03.14
наследник TDataSet или как сделать свой формат BD


4-43958
rustamus
2004-01-06 10:59
2004.03.14
Икона в трее


3-43263
Sirgfine
2004-02-06 04:42
2004.03.14
Индексация в qBase


7-43910
Mnch
2003-12-21 16:45
2004.03.14
Dos-проиложение в окне Windows не работает с Com-портом