VPF::Как определить директорию с программой?

TheAviator

Дата 28.9.2003, 21:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 28.9.2003
Где: Николаев-Киев

Репутация: нет
Всего: нет

Нужно из программы узнать, откуда она запущена, т.е. путь к ней..
Подскажите, плз, в факе не нашел..

x77

Дата 28.9.2003, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

ParamsStr (0) всегда возвращает путь и имя запущенного файла, а сами параметры нумеруются с единицы, т.е.

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage (ExtractFileDir (ParamStr (0)));
end;

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

remax

Дата 28.9.2003, 22:20 (ссылка)

(нет голосов)

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

Репутация: 1
Всего: 5

Цитата

ParamsStr (0) всегда возвращает путь и имя запущенного файла

Имя то возвращает всегда. А путь? Например, если вызвать программу из текущего каталога?

На самом деле, в Delphi получить родной для программы каталог можно так:
ExtractFilePath(Application.ExeName)

--------------------

Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку

x77

Дата 28.9.2003, 22:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

Цитата

Например, если вызвать программу из текущего каталога?

да откуда угодно. нажимаем Ctrl, левой кнопкой мыша давим на ParamStr. любуемся на дельфийский исходник:

Код

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;

лезем в Win32 SDK поглядеть на GetModuleName:

Цитата

The GetModuleFileName function retrieves the full path and filename for the executable file containing the specified module.

т.е., ParamStr (0) всегда возвращает полный путь и имя к запущенному файлу.

любопытства ради, глянем на твой вариант. с ExtractFilePath всё понятно. нажимаем Ctrl, левой кнопкой мыша на ExeName. имеем:

Код

property ExeName: string read GetExeName;

находим функцию GetExeName:

Код

function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;

забавно, правда?

Это сообщение отредактировал(а) x77 - 28.9.2003, 22:44

--------------------

TheAviator

Дата 28.9.2003, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 28.9.2003
Где: Николаев-Киев

Репутация: нет
Всего: нет

Спасибы, помогло. Приятно, что так оперативно и четко ответы получил.

December

Дата 29.9.2003, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

x77, не лень копаться было? Просто проверить было не проще?

--------------------

Для друзей с винграда - скидки на разработку сайтов

x77

Дата 29.9.2003, 19:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

всё на свете не проверишь

когда я понимаю, что реально происходит за той или иной строчкой кода, мне как-то жить спокойнее

и проверять ничего не надо.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »