Выбор между консольным и GUI режимом

[adwaer]

Здравствуйте! Мне необходимо сделать программу которая бы работала одновременно и в консольном и в GUI режиме. Запуск через командную строку и если параметр, то запустить консольный режим, иначе GUI. Как это реализовать? надо добавить условие перед апликейшн.ран как я подумал.. но что не вставлял не работает

[alexBlack]

Попробуйте так:

program Project1;

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

{$R *.RES}

begin
   if ParamCount = 0 then begin
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
   end else begin
      AllocConsole;

      writeln('Hello');
      readln;

      FreeConsole;
   end;
end.