学步园

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