| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
директория [Win95/98]
xoluay © (2003-12-28 20:45:00)
Как узнать путь текущей дерикторию (то есть из которой была запущена программа)?
YuRock (2004-01-05 14:59:00) [1]
> panov © (05.01.04 14:48) [11]
Так то оно так, но я имел в виду ExtractFilePath.
Кстати, System, на сколько я понимаю, и не надо подключать - он же всегда подключен!..
panov (2004-01-05 14:48:00) [2]
>YuRock © (05.01.04 14:37) [10]
Так ParamStr вроде бы в System определена?-)
YuRock (2004-01-05 14:37:00) [3]
> panov © (05.01.04 14:27) [9]
SysUtils (Вы наверное имели в виду)
panov (2004-01-05 14:27:00) [4]
>VMcL © (05.01.04 13:41) [8]
Если человеку нужна одна функция, зачем весь модуль system цеплять?-)
VMcL (2004-01-05 13:41:00) [5]
2 panov: а стандартные функции не рулят?
function ParamStr(Index: Integer): string;
var
P: PChar;
Buffer: array[0..260] of Char;
begin
Result := "";
if Index = 0then
SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer)))
else
//..
end;
Те же яйца, вид сбоку :) только зачем лишний код плодить...
panov (2003-12-29 19:51:00) [6]
function GetExePath: String;
var
Buffer: array[0..1023] of Char;
begin
Result := "";
SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer)));
end;
VMcL (2003-12-29 14:23:00) [7]
>> xoluay © (28.12.03 20:45)
>>Как узнать путь текущей дерикторию (то есть из которой была запущена программа)?
Так все-таки текущей или той, из которой запущена программа?
Если текущей --> SH © (29.12.03 13:58) [4]
Если же каталог программы --> Vulko © (29.12.03 00:47) [3]или ExtractFilePath(ParamStr(0))
YuRock (2003-12-29 14:06:00) [8]
Вот правельнейший вариант:
ExtractFilePath(ParamStr(0))
P.S. > SH ©
GetCurrentDir - неправильно. CurrentDir может меняться, а дир., из которой запущена программа - неизменна.
SH (2003-12-29 13:58:00) [9]
Имхо, GetCurrentDir
Vulko (2003-12-29 00:47:00) [10]
Можно вот так:
ExtractFilePath(Application.ExeName)
Номолос (2003-12-28 22:50:00) [11]
Прим.: Это только модуль. Чтобы директорию найти, надо сам файл отсечь.
dmk (2003-12-28 20:56:00) [12]
ParamStr(0)
| |
