Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Дек

Не создавать форму при определенном параметре

Posted by obzor under Delphi, Lazarus, Free Pascal

Нужно сделать программу:

Если просто запускается программа, без параметров — то запускается форма

Если же программа запускается с каким-то конкретным параметром — то тогда программа совершает вычисления без запуска формы, возвращает результат и закрывается

Как это сделать?

Arigato

Нет под рукой Делфи, но в Лазарус это делается аналогично. Правим файл LPR для Лазарус (DPR для Делфи). Там код создания главной формы:

Код:

begin
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Добавляем условие:

Код:

begin
  if (ParamCount > 0) and (ParamStr(1) = '...') then begin 
    // тут действия, если переданы параметры
  end else begin
    // тут обычное создание формы
    RequireDerivedFormResource:=True;
    Application.Scaled:=True;
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.