innosetup/Projects/Src/SetupLdrAndSetup.XPTheme.pas

unit SetupLdrAndSetup.XPTheme;

{
  Inno Setup
  Copyright (C) 1997-2025 Jordan Russell
  Portions by Martijn Laan
  For conditions of distribution and use, see LICENSE.TXT.

  Enables themes. Used only by the Setup and SetupLdr projects.

  Note: XPTheme must be included as the first unit in the program's "uses"
  clause so that its code runs before any VCL initialization code.
}

interface

implementation

{$IFNDEF WIN64}
{$R SetupLdrAndSetup.XPTheme-x86.res}
{$ELSE}
{$R SetupLdrAndSetup.XPTheme-x64.res}
{$ENDIF}

uses
  Windows;

{ Avoid including Variants (via CommCtrl) in SetupLdr (SetupLdr uses XPTheme), saving 26 KB. }
procedure InitCommonControls; external comctl32 name 'InitCommonControls';

initialization
  InitCommonControls;
end.