Eliminate Black Shell!

[xinyiman]

Question: I created an application and everything worked, but when running before the launch a shell appears black even before arriving at line

Application.Initialize;

Does anyone know why?


program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Unit1, myserialnumber, LResources, DBFLaz, DBSimpleComponents,
  lazreport, Unit2, UnitVariabileGlobale, GetHtml;

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}

begin
  {$I project1.lrs}
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.       

[Leledumbo]

If you're on Windows (any other platform that can cause this?), don't forget to check "Win32 GUI application" in compiler options.

[xinyiman]

Thank you it was just that. You were very kind!