InraPorc

program InraPorc;

{$STRINGCHECKS OFF}

{$WARN SYMBOL_PLATFORM OFF}

uses

  gnugettext in '..\gnugettext.pas',

  gginit in '..\gginit.pas',

  Windows,

  Forms,

  Graphics,

  Registry,

  HTMLHelpViewer,

  UVariables in 'UVariables.pas',

  UInit in 'UInit.pas',

  UUtil in 'UUtil.pas',

  UCalcul in 'UCalcul.pas',

  UStrings in 'UStrings.pas',

  UFindRec in 'UFindRec.pas',

  UEchelle in 'UEchelle.pas',

  UFLoader in 'UFLoader.pas' {FLoader},

  UFIntro in 'UFIntro.pas' {FIntro},

  UFPrevGraph in 'UFPrevGraph.pas' {FPrevGraph},

  UFPrevRap in 'UFPrevRap.pas' {FPrevRap},

  UFWarning in 'UFWarning.pas' {FWarning},

  UFMenu in 'UFMenu.pas' {FMenu},

  UFLicense in 'UFLicense.pas' {FLicense},

  UFConfig in 'UFConfig.pas' {FConfig},

  UFUserEquation in 'UFUserEquation.pas' {FUserEquation: TTntForm},

  UFComment in 'UFComment.pas' {FComment},

  UFCommentMat in 'UFCommentMat.pas' {FCommentMat},

  UFCommentAli in 'UFCommentAli.pas' {FCommentAli},

  UFMatiere in 'UFMatiere.pas' {FMatiere},

  UFRapportMat in 'UFRapportMat.pas' {FRapportMat},

  UFRapMatElem in 'UFRapMatElem.pas' {FRapMatElem},

  UFRapMatAA in 'UFRapMatAA.pas' {FRapMatAA},

  UFRapMatAG in 'UFRapMatAG.pas' {FRapMatAG},

  UFRapMatMin in 'UFRapMatMin.pas' {FRapMatMin},

  UFAliment in 'UFAliment.pas' {FAliment},

  UFRapportAli in 'UFRapportAli.pas' {FRapportAli},

  UFRapAliElem in 'UFRapAliElem.pas' {FRapAliElem},

  UFRapAliAA in 'UFRapAliAA.pas' {FRapAliAA},

  UFRapAliAG in 'UFRapAliAG.pas' {FRapAliAG},

  UFRapAliMin in 'UFRapAliMin.pas' {FRapAliMin},

  UFRapAliMat in 'UFRapAliMat.pas' {FRapAliMat},

  UFGraphAli in 'UFGraphAli.pas' {FGraphAli},

  UFTarif in 'UFTarif.pas' {FTarif},

  UFImpExp in 'UFImpExp.pas' {FImpExp},

  UFSeqAliT in 'UFSeqAliT.pas' {FSeqAliT},

  UFRapSeqAliT in 'UFRapSeqAliT.pas' {FRapSeqAliT},

  UFRationT in 'UFRationT.pas' {FRationT},

  UFRapRationT in 'UFRapRationT.pas' {FRapRationT},

  UFLogeT in 'UFLogeT.pas' {FLogeT},

  UFRapLogeT in 'UFRapLogeT.pas' {FRapLogeT},

  UFProfilT in 'UFProfilT.pas' {FProfilT},

  UFRapProfilT in 'UFRapProfilT.pas' {FRapProfilT},

  UFCalibrage in 'UFCalibrage.pas' {FCalibrage},

  UFSimulT in 'UFSimulT.pas' {FSimulT},

  UCalcSimulT in 'UCalcSimulT.pas',

  UFResSimulT in 'UFResSimulT.pas' {FResSimulT},

  UFRapSimulT in 'UFRapSimulT.pas' {FRapSimulT},

  UFCompSimulT in 'UFCompSimulT.pas' {FCompSimulT},

  UFBesGestT in 'UFBesGestT.pas' {FBesGestT},

  UFResBesGestT in 'UFResBesGestT.pas' {FResBesGestT},

  UFRapBesGestT in 'UFRapBesGestT.pas' {FRapBesGestT},

  UFBesGestE in 'UFBesGestE.pas' {FBesGestE},

  UFResBesGestE in 'UFResBesGestE.pas' {FResBesGestE},

  UFRapBesGestE in 'UFRapBesGestE.pas' {FRapBesGestE},

  UFBesLactT in 'UFBesLactT.pas' {FBesLactT},

  UFResBesLactT in 'UFResBesLactT.pas' {FResBesLactT},

  UFRapBesLactT in 'UFRapBesLactT.pas' {FRapBesLactT},

  UFBesLactE in 'UFBesLactE.pas' {FBesLactE},

  UFResBesLactE in 'UFResBesLactE.pas' {FResBesLactE},

  UFRapBesLactE in 'UFRapBesLactE.pas' {FRapBesLactE},

  UFSeqAliP in 'UFSeqAliP.pas' {FSeqAliP},

  UFRapSeqAliP in 'UFRapSeqAliP.pas' {FRapSeqAliP},

  UFRationP in 'UFRationP.pas' {FRationP},

  UFRapRationP in 'UFRapRationP.pas' {FRapRationP},

  UFProfilP in 'UFProfilP.pas' {FProfilP},

  UFRapProfilP in 'UFRapProfilP.pas' {FRapProfilP},

  UFGraph3D in 'UFGraph3D.pas' {FGraph3D},

  UFCalibrProfilP in 'UFCalibrProfilP.pas' {FCalibrProfilP: TTntForm},

  UFObservProfilP in 'UFObservProfilP.pas' {FObservProfilP: TTntForm},

  UFSimulP in 'UFSimulP.pas' {FSimulP},

  UCalcSimulP in 'UCalcSimulP.pas',

  UFResSimulP in 'UFResSimulP.pas' {FResSimulP},

  UFRapSimulP in 'UFRapSimulP.pas' {FRapSimulP},

  UFCompSimulP in 'UFCompSimulP.pas' {FCompSimulP},

  UFRapCompSimulP in 'UFRapCompSimulP.pas' {FRapCompSimulP},

  UFRapSensSimulP in 'UFRapSensSimulP.pas' {FRapSensSimulP},

  UFAbout in 'UFAbout.pas' {FAbout},

  UFError in 'UFError.pas' {FError};

{$R *.RES}

{$R 'Resources\Resources.res' 'Resources\Resources.rc'}

begin

  CreateMutex(nil, False, 'InraPorc');

  if GetLastError = ERROR_ALREADY_EXISTS

  then // L'application est d?j? lanc?e : mise au premier plan

  begin

    SendMessage(HWND_BROADCAST, RegisterWindowMessage('InraPorc'), 0, 0);

    Application.Terminate;

    Application.ProcessMessages;

    Exit;

  end;

  ReportMemoryLeaksOnShutdown := DebugHook <> 0;

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

  begin

    DefFontData.Name := 'Arial Unicode MS';

    Screen.HintFont.Name := 'Arial Unicode MS';

  end;

  Application.Initialize;

  Reg := TRegistry.Create;

  Reg.RootKey := HKEY_CURRENT_USER;

  LanguageCode := BdRReadString('\Software\InraPorc\Config\International', 'LanguageCode', DefaultInstance.GetCurrentLanguage);

  // Loader

  with TFLoader.Create(nil) do

    try

      Show;

      Update;

      Init;

    finally

      Free;

    end;

  Application.ProcessMessages;

  if not Application.Terminated

  then

  begin

    Application.CreateForm(TFMenu, FMenu);

    Application.Run;

  end;

  Reg.Free;

end.