View Single Post
  #1  
Old 05-02-2024, 06:12
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 688
Thanks: 481
Thanked 2,547 Times in 561 Posts
BLACKFIRE69 is on a distinguished road
Arrow InnoSetup Web Browsing - ISWebViewDll.dll : Embedding web content in InnoSetup

InnoSetup Web Browsing - ISWebViewDll.dll : Embedding web content in InnoSetup


Code:
* Module  : ISWebViewDll.dll
* Author  : BLACKFIRE69
* Size    : 771 KB

Note:
Quote:
1. Ensure your operating system is either Windows 10 or Windows 11 , as this module relies on Microsoft WebView2 Runtime.








Quote:
2. Users with other operating systems must independently download and install Microsoft WebView2 Runtime using the link provided:
Microsoft WebView2 Runtime




Example:

Code:
var 
  AWebView2Obj: FWebView2Obj;

procedure InitializeWizard();
begin
  { WizardForm Changes And New Buttons }
  ModifyWizardForm;

  { ISWebView2 Object }
  AWebView2Obj := InitWebView2ObjHandle;
  AWebView2Obj.FCreate(WizardForm.Handle, ScaleX(20), ScaleY(60), WizardForm.ClientWidth - ScaleX(40), WizardForm.ClientHeight - ScaleY(100), HOMEPAGE_URL);
  AWebView2Obj.OnNavigationStarting(@Frm1_OnNavigationStarting);
  AWebView2Obj.OnUpdateNavigatingButton(@Frm1_OnUpdateNavigatingButton);
  AWebView2Obj.OnNavigationDone(@Frm1_OnNavigationDone);
  AWebView2Obj.OnTitleChanged(@Frm1_OnTitleChanged);
  AWebView2Obj.OnPrintDone(@Frm1_OnPrintDone);
  AWebView2Obj.OnSourceChanged(@Frm1_OnSourceChanged);
  AWebView2Obj.OnStatusBarTextChanged(@Frm1_OnStatusBarTextChanged);
  AWebView2Obj.OnProcessFailed(@Frm1_OnProcessFailed);
  AWebView2Obj.OnScreenshotDone(@Frm1_OnSnapshotDone);
  AWebView2Obj.OnClearBrowsingData(@Frm1_OnClearBrowsingData);
  AWebView2Obj.OnClearCacheDone(@Frm1_OnClearCacheDone);
  AWebView2Obj.OnPrintToPDFDone(@Frm1_OnPrintToPDFDone);

  AWebView2Obj.Start;
end;

procedure DeinitializeSetup();
begin
  AWebView2Obj := nil;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;

  if CurPageID = wpReady then
  begin
    // Perform the navigation after the ENTER key is pressed.
    Result := False;
    AWebView2Obj.Navigate(URLEdt.Text);
  end;
end;


.
Attached Images
File Type: png x.png (64.0 KB, 84 views)
File Type: png y.png (80.8 KB, 82 views)
Attached Files
File Type: rar ISWebViewDll v0.1 + Example.rar (359.6 KB, 17 views)
Reply With Quote
The Following 6 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (05-02-2024), hitman797 (06-02-2024), ItsAtomic (05-02-2024), Lord.Freddy (05-02-2024), ScOOt3r (05-02-2024), Wanterlude (05-02-2024)
Sponsored Links