Как переделать форму в консольное приложение и получать параметры запуска

[Serik2010]

Ребята, очень нужна Ваша помощь!

У меня есть ооочень большой проект на Делфи 10. В нём куча разных форм.
Стоит задача: использовав "ядро" программы сделать "переключатель".

Т.е. если я запускаю свою прогу БЕЗ параметров, то она создаёт формы, и работает как всегда, если же у меня есть хотя бы ОДИН параметр, то я НЕ создаю формы и работаю в консоли, а желательно вообще в скрытом режиме.

Как это реализовать?

Что я нашёл:

Сразу же после program MyProject; вставил

{$AppType Console}.

Теперь у меня открывается пустая консолька и потом собственно программа с формами и окнами.

Далее нашёл как получить параметры запуска

if (paramstr(1) = '') then деляю что-то..

Так вот не понял как правильно параметры надо вбивать через командную чтобы вызвать:

MyProject.exe Param1 Param2

- так? если так, то у меня не работает тогда..

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

Вообщем не имею опыта в таком деянии. Очень надеюсь на Вашу помощь. Заранее спасибо

[FaTaL]

В файле DPR проверяй есть ли какие либо параметры запуска и если есть, то делай что тебе надо и завершай программу, иначе запускай формы.
Что-то типо этого должно получиться:

program Project1;

uses
  Forms,
  Windows,
  SysUtils,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  if LowerCase(ParamStr(1)) = '-msg' then
    begin
      // Тут делаешь то что тебе надо, например выводим сообщение
      MessageBox (0, 'Введён параметр -msg', 'Параметры',
        MB_OK or MB_ICONINFORMATION);
      // и закрываем прогу
      exit;
    end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Если запустить эту программу так: Project1.exe -msg то программа выдаст сообщение и закроется, если параметра не будет, то откроется программа обычно с окном.

[Serik2010]

Спасибо за ответ, но по сути это не консольное получается? или же не нужно писать этот {$AppType Console}.

И вопрос в том, что получается в куске

// Тут делаешь то что тебе надо, например выводим сообщение
      MessageBox (0, 'Введён параметр -msg', 'Параметры',
        MB_OK or MB_ICONINFORMATION);
      // и закрываем прогу
      exit;

Я могу делать по сути всё, что у меня включено в Uses, НО у меня часть процедур делается в файлах формы самой. Так ведь если параметр подходит, то у меня не создаётся форма, и тогда я не выполняю то что в ней...

[FaTaL]

Так Вы же сами сказали, что Вам вообще не надо отображать никакое окно. И {$AppType Console} тоже не надо. А чтобы выполнить какие либо процедуры из других юнитов, то подключите их в Uses и спользуйте.

[eval]

вы же сами сказали что формы вам не нужны, зачем же их создавать?

ну а то что у вас в коде каша, так это вы сами и виноваты

[Serik2010]

Хорошо, спасибо за ответы. +1 всем!

Буду пробовать..Просто эту кашу заварил не я, мне дали полусырой проект но с рабочим функционалом, сначала я его обернул в формы разные. а теперь нужно всё убрать)

[eval]

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

[northener]

Как вариант ShowMainForm:=False; в файле проекта. Можно при этом посадить в трей иконку с менюшкой. Правда ни о какой консоли речь тут не идет. Просто само приложение будет работать как обычно, но без диалога с пользователем.
Но это очень плохой совет. Забудьте его сразу после прочтения.

[Serik2010]

и еще один вопрос тогда, не сильно я в доступности процедур разобрался.

у меня в program в uses подключена форма, в которой есть процедура checkLengv();

Этот checkLengv(); я пишу прямо в програм. При наведении на него мне пишется что он объявлен в форме, ошибки как бы нету. НО когда компилю пишет:
[DCC Error] CoLiTecC.dpr(76): E2003 Undeclared identifier: 'checkLengv'

В чём пробелма? её еще где-то нужно объявлять?

[FaTaL]

Попробуйте его взывать так: ВашЮнит.checkLengv