Inno Setup 网页显示插件 webctrl

; -- Example.iss --; restools; http://restools.hanzify.org; 插件名：webctrl.dll; 插件功能：网络连接检测，创建网页页面。; 插件大小：9 KB; V2 增强操作函数，可以同时创建多达 256 个 Web 窗口。; V2 例子中演示了建立一个小型浏览器以体现该版本中的函数如何使用。比起 V1 重点在于能同时创建多个 Web 窗口。[Setup]AppName=我的程序AppVerName=我的程序 版本 1.5DefaultDirName={pf}/我的程序[Files]Source: "webctrl.dll"; Flags: dontcopySource: "file.htm"; Flags: dontcopySource: "wizard.htm"; Flags: dontcopySource: "1.gif"; Flags: dontcopySource: "2.gif"; Flags: dontcopySource: "3.gif"; Flags: dontcopy[code]function GetSystemMetrics(nIndex: Integer): Integer; external '[e-mail] stdcall';function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external '[e-mail] stdcall';function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external '[e-mail] stdcall';////////////////////////////////////////////////////////////////////////////////////// 检查网络连接是否正常// lpszURL: 网址，如果这里设置为空网址，检测将会简单的检查网络状态，返回状态标志// lpdwState: 状态标志，以下是标志值的解释// 注意：当不用网址来检测网络连接时，只是检查当前是否符合网络连接的条件，但是并不等于// 能正常连接 Internet，但是这种检测方式相当迅速，如果使用网址连接测试，如果网// 络处于正常连接，检查速度也相当快，但是如果非正常，那么将会有一点时间延迟，因// 为实际的连接测试有一个超时的限制来判断是否能够连接。但是这种检测方式是最直接// 的，并能确实知道是否能够连接网络，所以你按照实际要求来选择检测方式。////得到的 lpdwState 返回值可能是以下值的一个或几个值之和：// INTERNET_STATE_CONNECTED ：$00000001 连接状态；// INTERNET_STATE_DISCONNECTED ：$00000002 非连接状态（和 INTERNET_STATE_CONNECTED 对应）；// INTERNET_STATE_DISCONNECTED_BY_USER：$00000010 用户请求的非连接状态// INTERNET_STATE_IDLE ：$00000100 连接状态，并且空闲// INTERNET_STATE_BUSY ：$00000200 连接状态，正在响应连接请求function CheckConnectState(lpsURL: PChar; var lpdwState: dword): boolean; external 'checkconnectstate@files:webctrl.dll stdcall';// 初始化 WebCtrl 插件function InitWebCtrl(): Boolean; external 'initwebctrl@files:webctrl.dll stdcall';// 释放 WebCtrl 插件function UninitWebCtrl(): Boolean; external 'uninitwebctrl@files:webctrl.dll stdcall';// 创建 WEB 窗口function NewWebWnd(hWndParent: HWND; X, Y, nWidth, nHeight: Integer): HWND; external 'newwebwnd@files:webctrl.dll stdcall';// 释放 WEB 窗口function FreeWebWnd(hWndWeb: HWND): Boolean; external 'freewebwnd@files:webctrl.dll stdcall';// 设置 WEB 窗口的父窗口function WebWndSetParent(hWndWeb: HWND; hWndParent: HWND): Boolean; external 'webwndsetparent@files:webctrl.dll stdcall';// 设置 WEB 窗口的位置大小function WebWndSetBounds(hWndWeb: HWND; X, Y, nWidth, nHeight: Integer): Boolean; external 'webwndsetbounds@files:webctrl.dll stdcall';// 显示 HTML 网页function DisplayHTMLPage(hWndWeb: HWND; lpsURL: PChar): Boolean; external 'displayhtmlpage@files:webctrl.dll stdcall'; // ;// 显示 HTML 字符串function DisplayHTMLStr(hWndWeb: HWND; lpsHtmlText: PChar): Boolean; external 'displayhtmlstr@files:webctrl.dll stdcall';// Web 页面 动作function WebPageAction(hWndWeb: HWND; action: DWord): Boolean; external 'webpageaction@files:webctrl.dll stdcall';const SM_CXSCREEN = 0; SM_CYSCREEN = 1; WS_EX_CLIENTEDGE = $200; GWL_EXSTYLE = -20; WEBPAGE_GOBACK = 0; WEBPAGE_GOFORWARD = 1; WEBPAGE_GOHOME = 2; WEBPAGE_SEARCH = 3; WEBPAGE_REFRESH = 4; WEBPAGE_STOP = 5;var UrlPage, HtmlPage, HtmlTextPage: TWizardPage; WebHWND1, WebHWND2, WebHWND3, WebHWND4: HWND; WebHWND_Browser: HWND; Form_Browser: TForm; AddrEdit: TNewEdit; GoBtn: TNewButton;function InitializeSetup(): Boolean;begin InitWebCtrl(); WebHWND1 := 0; WebHWND2 := 0; WebHWND3 := 0; WebHWND4 := 0; Result := True;end;procedure DeinitializeSetup();begin UninitWebCtrl();end;procedure GoBackBtnOnClick(Sender: TObject);begin WebPageAction(WebHWND_Browser, WEBPAGE_GOBACK);end;procedure GoForwardBtnOnClick(Sender: TObject);begin WebPageAction(WebHWND_Browser, WEBPAGE_GOFORWARD);end;procedure StopBtnOnClick(Sender: TObject);begin WebPageAction(WebHWND_Browser, WEBPAGE_STOP);end;procedure RefreshBtnOnClick(Sender: TObject);begin WebPageAction(WebHWND_Browser, WEBPAGE_REFRESH);end;procedure HomeBtnOnClick(Sender: TObject);begin WebPageAction(WebHWND_Browser, WEBPAGE_GOHOME);end;procedure GoBtnOnClick(Sender: TObject);begin DisplayHTMLPage(WebHWND_Browser, AddrEdit.Text);end;procedure BrowserFormResize(Sender: TObject);var W: Integer;begin WebWndSetBounds(WebHWND_Browser, 0, ScaleY(35), Form_Browser.ClientWidth, Form_Browser.ClientHeight - ScaleY(35)); W := Form_Browser.Width - ScaleX(285); if W <= 0 then W := 1; AddrEdit.Width := W; GoBtn.SetBounds(AddrEdit.Left + AddrEdit.Width + ScaleX(2), ScaleY(5), ScaleX(30), WizardForm.CancelButton.Height);end;procedure EditKeyPress(Sender: TObject; var Key: Char);begin if Key = #13 then DisplayHTMLPage(WebHWND_Browser, AddrEdit.Text);end;procedure WizardBtnOnClick(Sender: TObject);var ScreenWidth, ScreenHeight: Integer; Btn: TNewButton;begin Form_Browser := TForm.Create(WizardForm); try Form_Browser.Caption := 'ThinBrowser'; Form_Browser.BorderIcons := [biSystemMenu, biMaximize]; ScreenWidth := GetSystemMetrics(SM_CXSCREEN); ScreenHeight := GetSystemMetrics(SM_CYSCREEN); Form_Browser.SetBounds((ScreenWidth - ScaleX(600)) div 2, (ScreenHeight - ScaleY(400)) div 2, ScaleX(600), ScaleY(400)); WebHWND_Browser := NewWebWnd(Form_Browser.Handle, 0, 0, Form_Browser.ClientWidth, Form_Browser.ClientHeight); SetWindowLong(Form_Browser.Handle, GWL_EXSTYLE, GetWindowLong( WebHWND_Browser, GWL_EXSTYLE) or WS_EX_CLIENTEDGE); Btn := TNewButton.Create(Form_Browser); Btn.SetBounds(ScaleX(5), ScaleY(5), ScaleX(40), WizardForm.CancelButton.Height); Btn.Caption := '&Back'; Btn.OnClick := @GoBackBtnOnClick; Btn.Parent := Form_Browser; Btn := TNewButton.Create(Form_Browser); Btn.SetBounds(ScaleX(47), ScaleY(5), ScaleX(55), WizardForm.CancelButton.Height); Btn.Caption := '&Forward'; Btn.OnClick := @GoForwardBtnOnClick; Btn.Parent := Form_Browser; Btn := TNewButton.Create(Form_Browser); Btn.SetBounds(ScaleX(104), ScaleY(5), ScaleX(40), WizardForm.CancelButton.Height); Btn.Caption := '&Stop'; Btn.OnClick := @StopBtnOnClick; Btn.Parent := Form_Browser; Btn := TNewButton.Create(Form_Browser); Btn.SetBounds(ScaleX(146), ScaleY(5), ScaleX(50), WizardForm.CancelButton.Height); Btn.Caption := '&Refresh'; Btn.OnClick := @RefreshBtnOnClick; Btn.Parent := Form_Browser; Btn := TNewButton.Create(Form_Browser); Btn.SetBounds(ScaleX(198), ScaleY(5), ScaleX(40), WizardForm.CancelButton.Height); Btn.Caption := '&Home'; Btn.OnClick := @HomeBtnOnClick; Btn.Parent := Form_Browser; AddrEdit := TNewEdit.Create(Form_Browser); AddrEdit.Left := ScaleX(240); AddrEdit.Top := ScaleY(6); AddrEdit.Parent := Form_Browser; AddrEdit.Text := 'about:blank'; AddrEdit.OnKeyPress := @EditKeyPress; GoBtn := TNewButton.Create(Form_Browser); GoBtn.Caption := '&Go'; GoBtn.OnClick := @GoBtnOnClick; GoBtn.Parent := Form_Browser; BrowserFormResize(Form_Browser); Form_Browser.OnResize := @BrowserFormResize; Form_Browser.ActiveControl := AddrEdit; Form_Browser.ShowModal(); FreeWebWnd(WebHWND_Browser); finally Form_Browser.Free(); end;end;procedure InitializeWizard();var State: DWord; s: string; BrowserBtn: TNewButton;begin State := 0; s := '';// 如果需要进行网址连接测试，取消下面代码的注释// s := 'http://www.google.cn'; if CheckConnectState(s, State) then MsgBox('网络已经连接。', mbInformation, MB_OK) else MsgBox('网络未连接。', mbCriticalError, MB_OK); MsgBox(inttostr(State), mbInformation, MB_OK); ExtractTemporaryFile('wizard.htm'); ExtractTemporaryFile('file.htm'); ExtractTemporaryFile('1.gif'); ExtractTemporaryFile('2.gif'); ExtractTemporaryFile('3.gif'); WebHWND1 := NewWebWnd(WizardForm.WelcomePage.Handle, 0, 0, WizardForm.WizardBitmapImage.Width, WizardForm.WelcomePage.Height); DisplayHTMLPage(WebHWND1, ExpandConstant('{tmp}/wizard.htm')); UrlPage := CreateCustomPage(wpWelcome, '测试 Web 页面', '网址: http://www.google.cn'); HtmlPage := CreateCustomPage(UrlPage.ID, '测试 HTML文件 页面', '文件: file.htm'); HtmlTextPage := CreateCustomPage(HtmlPage.ID, '测试 HTML文本 页面', '临时自定义 HTML 字符串'); BrowserBtn := TNewButton.Create(WizardForm); BrowserBtn.Left := WizardForm.ClientWidth - WizardForm.CancelButton.Left - WizardForm.CancelButton.Width; BrowserBtn.Top := WizardForm.CancelButton.Top; BrowserBtn.Width := WizardForm.CancelButton.Width; BrowserBtn.Height := WizardForm.CancelButton.Height; BrowserBtn.Caption := '&Browser...'; BrowserBtn.OnClick := @WizardBtnOnClick; BrowserBtn.Parent := WizardForm;end;procedure CurPageChanged(CurPageID: Integer);begin if CurPageID = wpWelcome then WebWndSetParent(WebHWND1, WizardForm.WelcomePage.Handle) else if CurPageID = wpFinished then WebWndSetParent(WebHWND1, WizardForm.FinishedPage.Handle) else if (CurPageID = UrlPage.ID) and (WebHWND2 = 0) then begin WebHWND2 := NewWebWnd(UrlPage.Surface.Handle, 0, 0, UrlPage.Surface.Width, UrlPage.Surface.Height); DisplayHTMLPage(WebHWND2, 'http://www.google.cn') end else if (CurPageID = HtmlPage.ID) and (WebHWND3 = 0) then begin WebHWND3 := NewWebWnd(HtmlPage.Surface.Handle, 0, 0, HtmlPage.Surface.Width, HtmlPage.Surface.Height); DisplayHTMLPage(WebHWND3, ExpandConstant('{tmp}/file.htm')); end else if (CurPageID = HtmlTextPage.ID) and (WebHWND4 = 0) then begin WebHWND4 := NewWebWnd(HtmlTextPage.Surface.Handle, 0, 0, HtmlTextPage.Surface.Width, HtmlTextPage.Surface.Height); DisplayHTMLStr(WebHWND4, '<b>I''m a <u>HTML text</u></b>'); end;end;

附图：


下载webctrl