program Launcher;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}cthreads,{$ENDIF}
  SysUtils, Classes,
  Interfaces,
  Forms,
  uMain1,
  uCICVersionInformation;

{$R *.res}

begin
  RequireDerivedFormResource := True;
  Application.Scaled := True;
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'HC Launcher';
  try
    Application.CreateForm(TfrmMain1, frmMain1);
    Application.Run;
  except
    on E: Exception do
    begin
      with TStringList.Create do
      try
        Add('FATAL: ' + E.ClassName + ': ' + E.Message);
        SaveToFile(ExtractFilePath(Application.ExeName) + 'crash.log');
      finally
        Free;
      end;
      Halt(1);
    end;
  end;
end.