Запуск программы с параметром

[mrbadge]

Здравствуйте.
В FormCreate:

if ParamStr(1)='-log' then
    N7.Click;

Дальше в этой же процедуре есть проверка FileExists на нахождение рядом с exe нужных файлов. Если запускать exe вручную из Explorer'а или из Дельфи (с параметром), то все работает, как и должно. Если же запустить с параметром (и без него) из cmd, то программа уже не видит этих файлов (как будто запускается из другого места). С чем это может быть связано и как этого избежать? Заранее благодарен.

[volvo877]

Странно. Проверил, выдает как и во всех остальных случаях, правильный результат. Можно чуть больше кода, что именно неверно обрабатывается?

[mrbadge]

procedure TForm1.FormCreate(Sender: TObject);
var
  ...
begin
  ...
  if ParamStr(1)='-log' then
    N7.Click;
  ...
  if FileExists('cover_Art.bmp') then
    begin
      ...
    end
    else
    begin
      ...
      pm1.Items[3].Click; // если запускаем из cmd, прописывая полный путь
        // (даже без параметром, то попадаем сюда)
    end;
   // дальше идет еще несколько похожих конструкций if then else
end;

все они еще в блоках try except, по except выполняется, по сути, тоже, что в else

[Аватар]

Откуда уверенность, что текущим каталогом при старте проги обязательно будет каталог, в котором exe находится? Это далеко не так.

[volvo877]

Проверяй так:

if FileExists(ExtractFilePath(Application.ExeName) +'cover_Art.bmp') then

[mrbadge]

Так программа вылетает с ошибкой чтения нулевой ячейки памяти (ручной запуск и из дельфи по прежнему работают)

Кстати, еще странная вещь: с кодом, который описал вторым постом (где файлы не находятся) вываливается меню с просьбой вручную эти файлы указать (как и должно быть), но нужной папки там просто не видно (и некоторых других).

[Человек_Борща]

Глупо проводить сравнение строк.
Есть FindCmdLineSwitch, используйте её.

[volvo877]

Так программа вылетает с ошибкой чтения нулевой ячейки памяти

"Бедному Ванечке везде камушки" (С). У меня не вылетает, у тебя - вылетает. Значит, ищи ошибку в программе. По тем огрызкам, что ты привел, больше ничего сказать невозможно.

[Serge_Bliznykov]

во-первых, соглашусь с ответами выше - не видя исходного кода - остаётся только гадать, что Вы там накрутили..

во-вторых, перед проверкой параметра нужно обязательно убедиться, что параметры вообще есть:

if ParamsCount>0 then
   if ParamStr(1)= .....

в-третьих, я бы рекомендовал посмотреть тему "Чтение параметров запуска программы"

[mrbadge]

Всем спасибо, решил все проблемы. Было не очевидно, но при запуске из командной строки сам exe запускается как будто не из обычного места. "Как будто", тк файлы настроек и тд программа создает на обычном месте. Решение: везде прописал ExtractFilePath(Application.ExeName )+"имя файла".