我为BeforeNavigate2
Web 浏览器控件的事件添加了一个事件处理程序。示例脚本现在由这个新功能扩展。所以首先获取the most recent version
并使用如下代码。它使用浏览器禁用自定义页面上的下一步按钮,除非用户单击所示 StackOverflow 站点的用户选项卡。但禁用此功能时要非常小心,因为并非所有用户都可以连接到 Internet,并且这些用户会被您的安装程序卡住:
[Setup]
AppName=Web Browser Project
AppVersion=1.0
DefaultDirName={pf}\Web Browser Project
[Files]
Source:"WebBrowser.dll"; Flags: dontcopy
[Code]
const
EVENT_BEFORE_NAVIGATE = 1;
var
CustomPage: TWizardPage;
type
TWebBrowserEventProc = procedure(EventCode: Integer; URL: WideString);
procedure CreateWebBrowser(ParentWnd: HWND; Left, Top, Width, Height: Integer;
CallbackProc: TWebBrowserEventProc);
external 'CreateWebBrowser@files:webbrowser.dll stdcall';
procedure DestroyWebBrowser;
external 'DestroyWebBrowser@files:webbrowser.dll stdcall';
procedure ShowWebBrowser(Visible: Boolean);
external 'ShowWebBrowser@files:webbrowser.dll stdcall';
procedure NavigateWebBrowser(URL: WideString);
external 'NavigateWebBrowser@files:webbrowser.dll stdcall';
procedure OnWebBrowserEvent(EventCode: Integer; URL: WideString);
begin
// this event will fire with the EVENT_BEFORE_NAVIGATE event code whenever
// you browse somewhere; this includes all iFrames and redirections, so for
// your case will be the best wait until your user navigate to the target of
// the ad (in this example unless user clicks the Users tab on StackOverflow)
if (EventCode = EVENT_BEFORE_NAVIGATE) and (URL = 'http://stackoverflow.com/users') then
WizardForm.NextButton.Enabled := True;
end;
procedure InitializeWizard;
begin
CustomPage := CreateCustomPage(wpWelcome, 'Web Browser Page',
'This page contains web browser');
CreateWebBrowser(WizardForm.InnerPage.Handle, 0, WizardForm.Bevel1.Top,
WizardForm.InnerPage.ClientWidth, WizardForm.InnerPage.ClientHeight - WizardForm.Bevel1.Top,
@OnWebBrowserEvent);
// I've been getting JSON error; so please ignore it, it's not my fault
NavigateWebBrowser('http://stackoverflow.com/');
end;
procedure DeinitializeSetup;
begin
DestroyWebBrowser;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
ShowWebBrowser(CurPageID = CustomPage.ID);
if CurPageID = CustomPage.ID then
WizardForm.NextButton.Enabled := False;
end;