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-11-05 18:52:16

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

Inno Setup 精灵显示插件 InnoFairy (V2.0 版本)

原文 http://restools.hanzify.org/article.asp?id=111 一个如影随形的小精灵会令到你的安装程序更加人性化. 就是这样一个功能的 Inno Setup 插件, 希望大家喜欢. ^_^Ver2.0 版本: 采用 GDI+ 来处理图片, 所以支持多种类型(bmp, jpg, gif, png, tiff, emf)图片. 并且插件大小缩小为 49KB.注:插件在 Win2000 以上系统有效.  引用来自 fairy.iss ; Inno Setup 精灵插

Inno Setup GIF 显示插件 GIFCtrl (V2.1 版本)

原文 http://restools.hanzify.org/article.asp?id=79  引用来自 test.iss ; -- test.iss --; restools; http://restools.hanzify.org; gifctrl.dll 为一个用于 Inno Setup 的 13 KB 的 gif 显示插件,同样可以显示 BMP 和 JPEG. ; V2.1 可以同时显示 64 个 GIF 图片.解决插件加载后卸载时的延迟问题. [Setup]AppName=gifc

Inno Setup 系统托盘图标插件 TrayIconCtrl V1.5

原文 http://restools.hanzify.org/article.asp?id=93 V1.5 修正在某些 Windows 平台上(例如 Windows XP SP3)不能正常运行的问题.  引用来自 trayiconctrl.iss,2009-10-16 21:06:53 ; -- trayiconctrl.iss --; restools; http://restools.hanzify.org; TrayIconCtrl.dll 为一个用于 Inno Setup 的 15.5

Inno setup定制安装界面

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

基于jQuery实现网页进度显示插件

 这篇文章主要介绍了基于jQuery实现网页进度显示插件的实现方法以及源码下载,十分的详细,并自带2种皮肤,这里推荐给小伙伴们.     相信大家都见过类似的网站功能,这种形式的进度显示可以很方便的让用户去理解和操作, 以下是插件的测试截图 ,提供了两个皮肤 使用js编写 可以灵活的生成进度条 方便进对一些工作进度进行图形显示 1.简单的调用 //所有步骤的数据 var stepListJson=[{StepNum:1,StepText:"第一步"}, {StepNum:2,StepT

jira6.3.6破解汉化后当点击插件时候网页显示 错误500

问题描述 jira6.3.6破解汉化后当点击插件时候网页显示 错误500 问题如标题,破解汉化后就无法打开插件页面了 谢谢,实在没有币了,请原谅 解决方案 参考[JIRA] 最新Linux版本 jira6.3.6安装汉化破解以及数据迁移 解决方案二: 上面的答案有帮助吗?如果还有问题,请提出来,如果对答案满意,请顶一下,并标记为采纳答案,谢谢!

Inno Setup 插件 CallbackCtrl V1.1 (回调函数插件)

原文 http://restools.hanzify.org/article.asp?id=101 VC 重现 InnoCallback 的功能. Version 1.1修正在某些 Windows 平台(例如: Windows XP SP3)出现不能正常运行的问题.  引用来自 test1.iss ; -- test.iss --; restools; http://restools.hanzify.org; 时间仓促,如有错误请到我的 BLOG 咨询; CallbackCtrl.dll 为一个

INNO Setup 使用笔记(来自网络)

[Setup] AppName={#MyAppName} AppVerName={#MyAppVerName} AppPublisher={#MyAppPublisher} AppPublisherURL={#MyAppURL} AppSupportURL={#MyAppURL} AppUpdatesURL={#MyAppURL} DefaultDirName={pf}\My Programee DefaultGroupName={#MyAppName} InfoBeforeFile=D:\In

如何解决网页显示不全问题

  网页显示不全,建议你先对自己的网络进行检查看看是否延迟严重,网速很低,如果网络通常话的话原因应该是浏览器设置问题或者是一些优化安全软件拦截所致,建议你按照下面的步骤解决: 第一,浏览器缓存问题,建议你先使用一些垃圾清除软件或者是Internet中进行缓存的清除,重启浏览器试一试. 第二,Flash插件问题,图中的区域一般是FLV动画,建议你查看浏览器中是否开启了Flash插件或者没有安装,及时开启或者是安装最新的Flash插件即可. 第三,如果故障依旧的话那就是一些第三方软件优化导致的,如浏