Форум: "WinAPI";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
Вниздиректория Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.021 c