WDCC.dpr

program WDCC;

uses
  Forms,
  Vcl.Themes,
  Vcl.Styles,
  uGlobals in 'Units\uGlobals.pas',
  Main in 'Main.pas' {FrmMain},
  uWmiTree in 'Units\uWmiTree.pas' {FrmWMITree},
  uDelphiSyntax in 'Units\uDelphiSyntax.pas',
  uWmi_About in 'Units\uWmi_About.pas' {FrmAbout},
  uWmiDelphiCode in 'Units\uWmiDelphiCode.pas',
  uDelphiIDE in 'Units\uDelphiIDE.pas',
  uDelphiPrismHelper in 'Units\uDelphiPrismHelper.pas',
  uDelphiPrismIDE in 'Units\uDelphiPrismIDE.pas',
  uLazarusIDE in 'Units\uLazarusIDE.pas',
  uSelectCompilerVersion in 'Units\uSelectCompilerVersion.pas' {FrmSelCompilerVer},
  uWmi_ViewPropsValues in 'Units\uWmi_ViewPropsValues.pas' {FrmWmiVwProps},
  uWmiDatabase in 'Units\uWmiDatabase.pas' {FrmWmiDatabase},
  uSettings in 'Units\uSettings.pas' {FrmSettings},
  uDelphiIDEHighlight in 'Units\uDelphiIDEHighlight.pas',
  uDelphiVersions in 'Units\uDelphiVersions.pas',
  uWmiGenCode in 'Units\uWmiGenCode.pas',
  uWmiOxygenCode in 'Units\uWmiOxygenCode.pas',
  uWmiFPCCode in 'Units\uWmiFPCCode.pas',
  uWmiClassTree in 'Units\uWmiClassTree.pas' {FrmWmiClassTree},
  uPropValueList in 'Units\uPropValueList.pas' {FrmValueList},
  uWmiBorlandCppCode in 'Units\uWmiBorlandCppCode.pas',
  uBorlandCppVersions in 'Units\uBorlandCppVersions.pas',
  uBorlandCppIDE in 'Units\uBorlandCppIDE.pas',
  uCodeEditor in 'Units\uCodeEditor.pas' {FrmCodeEditor},
  uWmiEvents in 'Units\uWmiEvents.pas' {FrmWmiEvents},
  uWmiMethods in 'Units\uWmiMethods.pas' {FrmWmiMethods},
  uWmiClasses in 'Units\uWmiClasses.pas' {FrmWmiClasses},
  uWmiVsCppCode in 'Units\uWmiVsCppCode.pas',
  uVisualStudio in 'Units\uVisualStudio.pas',
  Vcl.Styles.Ext in 'Units\Vcl.Styles.Utils\Vcl.Styles.Ext.pas',
  AsyncCalls in 'Units\ThirdParty\AsyncCalls.pas',
  uXE2Patches in 'Units\Vcl.Styles.Utils\uXE2Patches.pas',
  uWmi_Metadata in 'Units\WMI\uWmi_Metadata.pas',
  Vcl.Styles.WebBrowser in 'Units\Vcl.Styles.Utils\Vcl.Styles.WebBrowser.pas',
  uStdActionsPopMenu in 'Units\Misc\uStdActionsPopMenu.pas',
  uSynEditPopupEdit in 'Units\Misc\uSynEditPopupEdit.pas',
  uOleVariantEnum in 'Units\Misc\uOleVariantEnum.pas',
  uRegistry in 'Units\Misc\uRegistry.pas',
  uMisc in 'Units\Misc\uMisc.pas',
  uListView_Helper in 'Units\Misc\uListView_Helper.pas',
  uWinInet in 'Units\Misc\uWinInet.pas',
  uComboBox in 'Units\Misc\uComboBox.pas',
  uCustomImageDrawHook in 'Units\Misc\uCustomImageDrawHook.pas',
  uCheckUpdate in 'Units\Misc\uCheckUpdate.pas' {FrmCheckUpdate},
  uWmiCSharpCode in 'Units\uWmiCSharpCode.pas',
  uDotNetFrameWork in 'Units\uDotNetFrameWork.pas',
  uWmiPropertyValue in 'Units\uWmiPropertyValue.pas' {FrmWMIPropValue},
  Vcl.Styles.FormStyleHooks in 'Units\Vcl.Styles.Utils\Vcl.Styles.FormStyleHooks.pas',
  uOnlineResources in 'Units\uOnlineResources.pas' {FrmOnlineResources},
  uSqlWMI in 'Units\uSqlWMI.pas' {FrmWMISQL},
  uUpdatesChanges in 'Units\Misc\uUpdatesChanges.pas' {FrmUpdateChanges},
  WbemScripting_TLB in 'Units\WMI\WbemScripting_TLB.pas',
  uLog in 'Units\uLog.pas' {FrmLog},
  Vcl.Styles.ColorTabs in 'Units\Vcl.Styles.Utils\Vcl.Styles.ColorTabs.pas',
  uSqlWMIContainer in 'Units\uSqlWMIContainer.pas' {FrmSqlWMIContainer},
  uWmiInfo in 'Units\uWmiInfo.pas' {FrmWMIInfo},
  uWMIClassesContainer in 'Units\uWMIClassesContainer.pas' {FrmWMiClassesContainer},
  uWMIEventsContainer in 'Units\uWMIEventsContainer.pas' {FrmWmiEventsContainer},
  uWMIMethodsContainer in 'Units\uWMIMethodsContainer.pas' {FrmWmiMethodsContainer},
  uHostsAdmin in 'Units\uHostsAdmin.pas' {FrmHostAdmin},
  Vcl.Styles.TabsClose in 'Units\Vcl.Styles.Utils\Vcl.Styles.TabsClose.pas',
  Vcl.Styles.Fixes in 'Units\Vcl.Styles.Utils\Vcl.Styles.Fixes.pas',
  Vcl.Styles.Utils.Menus in 'Units\Vcl.Styles.Utils\Vcl.Styles.Utils.Menus.pas',
  Vcl.Styles.Utils.SysControls in 'Units\Vcl.Styles.Utils\Vcl.Styles.Utils.SysControls.pas',
  Vcl.Styles.Utils.SysStyleHook in 'Units\Vcl.Styles.Utils\Vcl.Styles.Utils.SysStyleHook.pas',
  Vcl.Styles.Hooks in 'Units\Vcl.Styles.Utils\Vcl.Styles.Hooks.pas',
  Vcl.Styles.NC in 'Units\Vcl.Styles.Utils\Vcl.Styles.NC.pas',
  Vcl.Styles.Utils.SystemMenu in 'Units\Vcl.Styles.Utils\Vcl.Styles.Utils.SystemMenu.pas',
  Vcl.Styles.UxTheme in 'Units\Vcl.Styles.Utils\Vcl.Styles.UxTheme.pas',
  DDetours in 'Units\Vcl.Styles.Utils\delphi-detours-library\DDetours.pas',
  InstDecode in 'Units\Vcl.Styles.Utils\delphi-detours-library\InstDecode.pas',
  CPUID in 'Units\Vcl.Styles.Utils\delphi-detours-library\CPUID.pas',
  Vcl.Styles.Utils.Graphics in 'Units\Vcl.Styles.Utils\Vcl.Styles.Utils.Graphics.pas',
  uSupportedIDEs in 'Units\uSupportedIDEs.pas';

{$R *.res}

procedure UpdateApp;
var
  Frm: TFrmCheckUpdate;
  Settings : TSettings;
begin
  Settings:=TSettings.Create;
  try
    ReadSettings(Settings);
    if Settings.CheckForUpdates then
    begin
      Frm := GetUpdaterInstance;
      try
        Frm.CheckExternal:=True;
        if Frm.UpdateAvailable then
          Frm.ExecuteUpdater;

         // ccccccc
      finally
        //Frm.Free;
      end;
    end;
  finally
    Settings.Free;
  end;
end;

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TFrmMain, FrmMain);
  UpdateApp;
  Application.Run;
end.