Inno Setup 网页显示插件 webctrl

原文:Inno Setup 网页显示插件 webctrl

; -- Example.iss --
; restools
; http://restools.hanzify.org
; 插件名：webctrl.dll
; 插件功能：网络连接检测，创建网页页面。
; 插件大小：9 KB

; V2 增强操作函数，可以同时创建多达 256 个 Web 窗口。
; V2 例子中演示了建立一个小型浏览器以体现该版本中的函数如何使用。比起 V1 重点在于能同时创建多个 Web 窗口。

[Setup]
AppName=我的程序
AppVerName=我的程序 版本 1.5
DefaultDirName={pf}/我的程序

[Files]
Source: "webctrl.dll"; Flags: dontcopy
Source: "file.htm"; Flags: dontcopy
Source: "wizard.htm"; Flags: dontcopy
Source: "1.gif"; Flags: dontcopy
Source: "2.gif"; Flags: dontcopy
Source: "3.gif"; Flags: dontcopy

[code]
function GetSystemMetrics(nIndex: Integer): Integer; external ‘GetSystemMetrics@user32.dll stdcall‘;
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external ‘GetWindowLongA@user32.dll stdcall‘;
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external ‘SetWindowLongA@user32.dll 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

时间： 2024-07-28 23:42:08

Inno Setup 网页显示插件 webctrl的相关文章

Inno setup定制安装界面

原文:Inno setup定制安装界面 Innosetup功能很强大,可以通过它提供的Wizard接口来定制界面,但我对PASCAL语言不熟悉,也不清楚通过那种接口可改动的范围有多大,最后做出来的效果是否好,所以选择了通过一个DLL来实现我的界面. 首先,脚本中增加如下设置,以禁至所有Inno setup自身显示的界面: DisableDirPage=yes DisableFinishedPage=yes DisableProgramGroupPage=yes DisableReadyMemo=

Inno Setup入门（九）&mdash;&mdash;修改安装过程中的文字显示

前面说到过可以使用不用的语言文件实现不同的显示方式,方便与国际接轨,事实上即使没有语言文件也可以实现修改.[Messages]段用于定义安装程序和卸载程序中显示的消息.一般不需要创建 [Messages]段,因为所有的消息在Inno Setup的Default.isl文件(或在[Languages]段指定的语言选项) 中已经包含.但是可以通过覆盖默认的消息,打造自己的消息显示界面.打开Inno Setup目录下的该文件,其中button的定义如下: ; *** Buttons ButtonBac

(转)Inno Setup入门（九）——修改安装过程中的文字显示

本文转载自:http://blog.csdn.net/yushanddddfenghailin/article/details/17250837 前面说到过可以使用不用的语言文件实现不同的显示方式,方便与国际接轨,事实上即使没有语言文件也可以实现修改.[Messages] 段用于定义安装程序和卸载程序中显示的消息.一般不需要创建 [Messages] 段,因为所有的消息在Inno Setup的Default.isl文件 (或在[Languages] 段指定的语言选项) 中已经包含.但是可以通过覆

解决Inno Setup制作中文安装包在非中文系统上显示乱码的问题

尼玛,好几个月没更新了.囧... 目前我司新的客户端开发已经接近尾声,该改的bug已经改完,该重构的地方也都差不多了.视觉效果也已经根据美工的样式改完了.所以,就差制作安装包了.正所谓万事俱备,只欠东风. 首先,当然是选用了InstallShield Limited Edition来制作安装包了.这个工具说简单,是真的简单.全部都是图形化的,并且可以和VS很好结合.如何使用的细节,这里就不表了.网上一搜一大堆.InstallShield LE版最大的问题是开放的功能实在太少了,我想在安装包中打一

inno setup制作网页ocx控件发布程序执行包

 ; Script generated by the Inno Setup Script Wizard. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES! #define MyAppName "UnionKdm" #define MyAppVersion "1.0.0.3" #define MyAppPublisher "UNION" #defin

一个简单的inno setup模板

一.模板代码 基本功能包括多路径安装.多语言.自定义图标. [Setup] ShowLanguageDialog=yes AppCopyright=Copyright Reserved(C) 2016, 360 Inc. AppName={cm:Packagename} AppVerName={cm:Packagename} {cm:Packagever} LicenseFile= OutputDir=C:/installer UninstallFilesDir={code:getdlldir}

Inno Setup的常用脚本

Inno Setup的常用脚本 分类: VC++神奇理论 2012-12-06 10:07 3234人阅读 评论(2) 收藏 举报 安装不同的目录: [Files] Source: "我的程序\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "我的程序\*"; DestDir: {cf}\我的程序; Flags: ignoreve

Inno Setup入门（十一）——完成安装后执行某些程序

Inno Setup入门(十一)——完成安装后执行某些程序 2011-02-16 16:24:23|  分类: Inno Setup |  标签:inno  setup   |举报 |字号 订阅 下载LOFTER客户端 有些时候我们的程序虽然能够很好的完成安装,但是程序的配置工作可能需要其他的一些程序来辅助完成,如果不执行这些程序,主程序就不能很好的完成工作,甚至不能完成工作,一个很明显的例子是,目前许多程序是通过NET技术开发的,这就要求计算机上必须安装有.net Framework,否则主程

Inno Setup使用上的几个问题

Inno Setup使用上的几个问题 分类: Install Setup 2013-02-02 15:48 1781人阅读 评论(0) 收藏 举报 Inno Setup使用上的几个问题: [问题一:Inno Setup 执行REG文件代码?][Run]Filename: "{win}\regedit.exe";Parameters:"/s {tmp}\reg.reg" // 静默参数/S [问题二:安装时,如果已经有同名文件存在,就不更新该文件?][Files]So