Files
lazarus-ccr/applications/lazstats/source/LazStats.lpr

35 lines
656 B
ObjectPascal
Raw Normal View History

program LazStats;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms,
Globals, LicenseUnit, OptionsUnit, MainDM, MainUnit, utils;
{$R LazStats.res}
begin
RequireDerivedFormResource := True;
Application.Title:='';
Application.Scaled:=True;
Application.Initialize;
LoadOptions;
if not LoggedOn then
begin
if AcceptLicenseForm then
LoggedOn := true
else
Application.Terminate;
end;
Application.CreateForm(TMainDataModule, MainDataModule);
Application.CreateForm(TOS3MainFrm, OS3MainFrm);
Application.Run;
end.