TWVLoader

type TWVLoader = class(TComponent,IWVLoaderEvents)

protected

  FCoreWebView2Environment: TCoreWebView2Environment;

  FOnEnvironmentCreated: TLoaderNotifyEvent;

  FOnNewBrowserVersionAvailable: TLoaderNewBrowserVersionAvailableEvent;

  FOnInitializationError: TLoaderNotifyEvent;

  FOnBrowserProcessExited: TLoaderBrowserProcessExitedEvent;

  FOnProcessInfosChanged: TLoaderProcessInfosChangedEvent;

  FOnGetCustomSchemes: TLoaderGetCustomSchemesEvent;

  FLibHandle: THandle;

  FErrorLog: TStringList;

  FError: Int64;

  FBrowserExecPath: wvstring;

  FUserDataFolder: wvstring;

  FStatus: TWV2LoaderStatus;

  FSetCurrentDir: Boolean;

  FCheckFiles: Boolean;

  FShowMessageDlg: Boolean;

  FInitCOMLibrary: Boolean;

  FDeviceScaleFactor: single;

  FForcedDeviceScaleFactor: single;

  FReRaiseExceptions: Boolean;

  FLoaderDllPath: wvstring;

  FUseInternalLoader: Boolean;

  FAllowOldRuntime: Boolean;

  FAdditionalBrowserArguments: wvstring;

  FLanguage: wvstring;

  FTargetCompatibleBrowserVersion: wvstring;

  FAllowSingleSignOnUsingOSPrimaryAccount: Boolean;

  FExclusiveUserDataFolderAccess: Boolean;

  FCustomCrashReportingEnabled: Boolean;

  FEnableTrackingPrevention: Boolean;

  FAreBrowserExtensionsEnabled: Boolean;

  FChannelSearchKind: TWVChannelSearchKind;

  FReleaseChannels: TWVReleaseChannels;

  FScrollBarStyle: TWVScrollBarStyle;

  FEnableGPU: Boolean;

  FEnableFeatures: wvstring;

  FDisableFeatures: wvstring;

  FEnableBlinkFeatures: wvstring;

  FDisableBlinkFeatures: wvstring;

  FBlinkSettings: wvstring;

  FForceFieldTrials: wvstring;

  FForceFieldTrialParams: wvstring;

  FSmartScreenProtectionEnabled: Boolean;

  FAllowInsecureLocalhost: Boolean;

  FDisableWebSecurity: Boolean;

  FTouchEvents: TWVState;

  FHyperlinkAuditing: Boolean;

  FAutoplayPolicy: TWVAutoplayPolicy;

  FMuteAudio: Boolean;

  FDefaultEncoding: wvstring;

  FKioskPrinting: Boolean;

  FProxySettings: TWVProxySettings;

  FAllowFileAccessFromFiles: Boolean;

  FAllowRunningInsecureContent: Boolean;

  FDisableBackgroundNetworking: Boolean;

  FRemoteDebuggingPort: Integer;

  FRemoteAllowOrigins: wvstring;

  FDebugLog: TWV2DebugLog;

  FDebugLogLevel: TWV2DebugLogLevel;

  FJavaScriptFlags: wvstring;

  FDisableEdgePitchNotification: Boolean;

  FTreatInsecureOriginAsSecure: wvstring;

  FOpenOfficeDocumentsInWebViewer: Boolean;

  FMicrosoftSignIn: Boolean;

  FPostQuantumKyber: TWVState;

  FUserAgent: wvstring;

  FAutoAcceptCamAndMicCapture: Boolean;

  function GetInternalAvailableBrowserVersion;

  function GetAvailableBrowserVersion;

  function GetAvailableBrowserVersionWithOptions;

  function GetInitialized;

  function GetInitializationError;

  function GetEnvironmentIsInitialized;

  function GetDefaultUserDataPath;

  function GetEnvironment;

  function GetProcessInfos;

  function GetSupportsCompositionController;

  function GetSupportsControllerOptions;

  function GetCustomCommandLineSwitches;

  function GetInstalledRuntimeVersion;

  function GetErrorMessage;

  function GetFailureReportFolderPath;

  function CreateEnvironment;

  procedure DestroyEnvironment;

  function GetFileVersion();

  function GetExtendedFileVersion();

  function LoadLibProcedures;

  function LoadWebView2Library;

  procedure UnLoadWebView2Library;

  function CheckWV2Library;

  function CheckBrowserExecPath;

  function CheckWebViewRuntimeVersion;

  function CheckWV2DLL;

  function CheckFileVersion();

  function GetDLLHeaderMachine();

  function Is32BitProcess;

  function CheckInstalledRuntimeRegEntry();

  procedure ShowErrorMessageDlg();

  function SearchInstalledProgram();

  function SearchInstalledProgramInPath();

  procedure doOnInitializationError; virtual;

  procedure doOnEnvironmentCreated; virtual;

  procedure doOnNewBrowserVersionAvailable(); virtual;

  procedure doOnBrowserProcessExitedEvent(); virtual;

  procedure doProcessInfosChangedEvent(); virtual;

  procedure doOnGetCustomSchemes(); virtual;

  function EnvironmentCompletedHandler_Invoke();

  function NewBrowserVersionAvailableEventHandler_Invoke();

  function BrowserProcessExitedEventHandler_Invoke();

  function ProcessInfosChangedEventHandler_Invoke();

  property DefaultUserDataPath: string; [r]

  property EnvironmentIsInitialized: Boolean; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure AfterConstruction; override;

  function StartWebView2;

  function CompareVersions();

  procedure UpdateDeviceScaleFactor; virtual;

  procedure AppendErrorLog();

  property Environment: ICoreWebView2Environment; [r]

  property Status: TWV2LoaderStatus; [r]

  property AvailableBrowserVersion: wvstring; [r]

  property AvailableBrowserVersionWithOptions: wvstring; [r]

  property ErrorMessage: wvstring; [r]

  property ErrorCode: Int64; [r]

  property SetCurrentDir: Boolean; [rw]

  property Initialized: Boolean; [r]

  property InitializationError: Boolean; [r]

  property CheckFiles: Boolean; [rw]

  property ShowMessageDlg: Boolean; [rw]

  property InitCOMLibrary: Boolean; [rw]

  property CustomCommandLineSwitches: wvstring; [r]

  property DeviceScaleFactor: single; [r]

  property ReRaiseExceptions: Boolean; [rw]

  property InstalledRuntimeVersion: wvstring; [r]

  property LoaderDllPath: wvstring; [rw]

  property UseInternalLoader: Boolean; [rw]

  property AllowOldRuntime: Boolean; [rw]

  property BrowserExecPath: wvstring; [rw]

  property UserDataFolder: wvstring; [rw]

  property AdditionalBrowserArguments: wvstring; [rw]

  property Language: wvstring; [rw]

  property TargetCompatibleBrowserVersion: wvstring; [rw]

  property AllowSingleSignOnUsingOSPrimaryAccount: Boolean; [rw]

  property ExclusiveUserDataFolderAccess: Boolean; [rw]

  property CustomCrashReportingEnabled: Boolean; [rw]

  property EnableTrackingPrevention: Boolean; [rw]

  property AreBrowserExtensionsEnabled: Boolean; [rw]

  property ChannelSearchKind: TWVChannelSearchKind; [rw]

  property ReleaseChannels: TWVReleaseChannels; [rw]

  property ScrollBarStyle: TWVScrollBarStyle; [rw]

  property EnableGPU: Boolean; [rw]

  property EnableFeatures: wvstring; [rw]

  property DisableFeatures: wvstring; [rw]

  property EnableBlinkFeatures: wvstring; [rw]

  property DisableBlinkFeatures: wvstring; [rw]

  property BlinkSettings: wvstring; [rw]

  property ForceFieldTrials: wvstring; [rw]

  property ForceFieldTrialParams: wvstring; [rw]

  property SmartScreenProtectionEnabled: Boolean; [rw]

  property AllowInsecureLocalhost: Boolean; [rw]

  property DisableWebSecurity: Boolean; [rw]

  property TouchEvents: TWVState; [rw]

  property HyperlinkAuditing: Boolean; [rw]

  property AutoplayPolicy: TWVAutoplayPolicy; [rw]

  property MuteAudio: Boolean; [rw]

  property DefaultEncoding: wvstring; [rw]

  property KioskPrinting: Boolean; [rw]

  property ProxySettings: TWVProxySettings; [r]

  property AllowFileAccessFromFiles: Boolean; [rw]

  property AllowRunningInsecureContent: Boolean; [rw]

  property DisableBackgroundNetworking: Boolean; [rw]

  property ForcedDeviceScaleFactor: single; [rw]

  property RemoteDebuggingPort: Integer; [rw]

  property RemoteAllowOrigins: wvstring; [rw]

  property DebugLog: TWV2DebugLog; [rw]

  property DebugLogLevel: TWV2DebugLogLevel; [rw]

  property JavaScriptFlags: wvstring; [rw]

  property DisableEdgePitchNotification: Boolean; [rw]

  property TreatInsecureOriginAsSecure: wvstring; [rw]

  property OpenOfficeDocumentsInWebViewer: Boolean; [rw]

  property MicrosoftSignIn: Boolean; [rw]

  property TLS13HybridizedKyberSupport: TWVState; [rw]

  property AutoAcceptCamAndMicCapture: Boolean; [rw]

  property SupportsCompositionController: Boolean; [r]

  property ProcessInfos: ICoreWebView2ProcessInfoCollection; [r]

  property SupportsControllerOptions: Boolean; [r]

  property FailureReportFolderPath: wvstring; [r]

  property OnEnvironmentCreated: TLoaderNotifyEvent; [rw]

  property OnInitializationError: TLoaderNotifyEvent; [rw]

  property OnGetCustomSchemes: TLoaderGetCustomSchemesEvent; [rw]

  property OnNewBrowserVersionAvailable: TLoaderNewBrowserVersionAvailableEvent; [rw]

  property OnBrowserProcessExited: TLoaderBrowserProcessExitedEvent; [rw]

  property OnProcessInfosChanged: TLoaderProcessInfosChangedEvent; [rw]

end;

TWVLoader

TObject,IWVLoaderEvents