798 lines
28 KiB
Plaintext
798 lines
28 KiB
Plaintext
//为了方便管理，就将[Code]区段单独拿出来了
|
||
|
||
//引入botva2的函数声明
|
||
#include ".\botva2.iss"
|
||
|
||
[Code]
|
||
CONST
|
||
PRODUCT_REGISTRY_KEY_32 = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppID}_is1';
|
||
PRODUCT_REGISTRY_KEY_64 = 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppID}_is1';
|
||
WM_SYSCOMMAND = $0112;
|
||
ID_BUTTON_ON_CLICK_EVENT = 1;
|
||
WIZARDFORM_WIDTH_NORMAL = 600;
|
||
WIZARDFORM_HEIGHT_NORMAL = 400;
|
||
WIZARDFORM_HEIGHT_MORE = 470;
|
||
|
||
VAR
|
||
label_wizardform_main, label_messagebox_main, label_wizardform_more_product_already_installed, label_messagebox_information, label_messagebox_title, label_wizardform_title, label_install_progress : TLabel;
|
||
image_wizardform_background, image_messagebox_background, image_progressbar_background, image_progressbar_foreground, PBOldProc : LONGINT;
|
||
button_license, button_minimize, button_close, button_browse, button_setup_or_next, button_customize_setup, button_uncustomize_setup, checkbox_license, checkbox_setdefault, button_messagebox_close, button_messagebox_ok, button_messagebox_cancel : HWND;
|
||
isFirst, is_wizardform_show_normal, is_installer_initialized, is_platform_windows_7, is_wizardform_released, can_exit_setup, need_to_change_associations : BOOLEAN;
|
||
edit_target_path : TEdit;
|
||
version_installed_before : STRING;
|
||
messagebox_close : TSetupForm;
|
||
|
||
//调用这个函数可以使矩形窗口转变为圆角矩形窗口
|
||
PROCEDURE shape_form_round(aForm : TForm; edgeSize : INTEGER);
|
||
VAR
|
||
FormRegion : LONGWORD;
|
||
BEGIN
|
||
FormRegion := CreateRoundRectRgn(0, 0, aForm.Width, aForm.Height, edgeSize, edgeSize);
|
||
SetWindowRgn(aForm.Handle, FormRegion, TRUE);
|
||
END;
|
||
|
||
//这个函数的作用是判断是否已经安装了将要安装的产品，若已经安装，则返回TRUE，否则返回FALSE
|
||
FUNCTION is_installed_before() : BOOLEAN;
|
||
BEGIN
|
||
#ifndef x64Build
|
||
IF is_platform_windows_7 THEN
|
||
BEGIN
|
||
IF IsWin64 THEN
|
||
BEGIN
|
||
IF RegKeyExists(HKEY_LOCAL_MACHINE, PRODUCT_REGISTRY_KEY_64) THEN
|
||
BEGIN
|
||
RegQueryStringValue(HKEY_LOCAL_MACHINE, PRODUCT_REGISTRY_KEY_64, 'DisplayVersion', version_installed_before);
|
||
Result := TRUE;
|
||
END ELSE
|
||
BEGIN
|
||
version_installed_before := '0.0.0';
|
||
Result := FALSE;
|
||
END;
|
||
END ELSE
|
||
BEGIN
|
||
IF RegKeyExists(HKEY_LOCAL_MACHINE, PRODUCT_REGISTRY_KEY_32) THEN
|
||
BEGIN
|
||
RegQueryStringValue(HKEY_LOCAL_MACHINE, PRODUCT_REGISTRY_KEY_32, 'DisplayVersion', version_installed_before);
|
||
Result := TRUE;
|
||
END ELSE
|
||
BEGIN
|
||
version_installed_before := '0.0.0';
|
||
Result := FALSE;
|
||
END;
|
||
END;
|
||
END ELSE
|
||
BEGIN
|
||
IF RegKeyExists(HKEY_LOCAL_MACHINE, PRODUCT_REGISTRY_KEY_32) THEN
|
||
BEGIN
|
||
RegQueryStringValue(HKEY_LOCAL_MACHINE, PRODUCT_REGISTRY_KEY_32, 'DisplayVersion', version_installed_before);
|
||
Result := TRUE;
|
||
END ELSE
|
||
BEGIN
|
||
version_installed_before := '0.0.0';
|
||
Result := FALSE;
|
||
END;
|
||
END;
|
||
#else
|
||
IF RegKeyExists(HKEY_LOCAL_MACHINE, PRODUCT_REGISTRY_KEY_32) THEN
|
||
BEGIN
|
||
RegQueryStringValue(HKEY_LOCAL_MACHINE, PRODUCT_REGISTRY_KEY_32, 'DisplayVersion', version_installed_before);
|
||
Result := TRUE;
|
||
END ELSE
|
||
BEGIN
|
||
version_installed_before := '0.0.0';
|
||
Result := FALSE;
|
||
END;
|
||
#endif
|
||
END;
|
||
|
||
//这个函数的作用是判断是否正在安装旧版本（若系统中已经安装了将要安装的产品），是则返回TRUE，否则返回FALSE
|
||
FUNCTION is_installing_older_version() : BOOLEAN;
|
||
VAR
|
||
installedVer : ARRAY[1..10] OF LONGINT;
|
||
installingVer : ARRAY[1..10] OF LONGINT;
|
||
oldVer, nowVer, version_installing_now : STRING;
|
||
i, oldTotal, nowTotal, total : INTEGER;
|
||
BEGIN
|
||
oldTotal := 1;
|
||
WHILE (Pos('.', version_installed_before) > 0) DO
|
||
BEGIN
|
||
oldVer := version_installed_before;
|
||
Delete(oldVer, Pos('.', oldVer), ((Length(oldVer) - Pos('.', oldVer)) + 1));
|
||
installedVer[oldTotal] := StrToIntDef(oldVer, 0);
|
||
oldTotal := oldTotal + 1;
|
||
version_installed_before := Copy(version_installed_before, (Pos('.', version_installed_before) + 1), (Length(version_installed_before) - Pos('.', version_installed_before)));
|
||
END;
|
||
IF (version_installed_before <> '') THEN
|
||
BEGIN
|
||
installedVer[oldTotal] := StrToIntDef(version_installed_before, 0);
|
||
END ELSE
|
||
BEGIN
|
||
oldTotal := oldTotal - 1;
|
||
END;
|
||
version_installing_now := '{#MyAppVersion}';
|
||
nowTotal := 1;
|
||
WHILE (Pos('.', version_installing_now) > 0) DO
|
||
BEGIN
|
||
nowVer := version_installing_now;
|
||
Delete(nowVer, Pos('.', nowVer), ((Length(nowVer) - Pos('.', nowVer)) + 1));
|
||
installingVer[nowTotal] := StrToIntDef(nowVer, 0);
|
||
nowTotal := nowTotal + 1;
|
||
version_installing_now := Copy(version_installing_now, (Pos('.', version_installing_now) + 1), (Length(version_installing_now) - Pos('.', version_installing_now)));
|
||
END;
|
||
IF (version_installing_now <> '') THEN
|
||
BEGIN
|
||
installingVer[nowTotal] := StrToIntDef(version_installing_now, 0);
|
||
END ELSE
|
||
BEGIN
|
||
nowTotal := nowTotal - 1;
|
||
END;
|
||
IF (oldTotal < nowTotal) THEN
|
||
BEGIN
|
||
FOR i := (oldTotal + 1) TO nowTotal DO
|
||
BEGIN
|
||
installedVer[i] := 0;
|
||
total := nowTotal;
|
||
END;
|
||
END ELSE IF (oldTotal > nowTotal) THEN
|
||
BEGIN
|
||
FOR i := (nowTotal + 1) TO oldTotal DO
|
||
BEGIN
|
||
installingVer[i] := 0;
|
||
total := oldTotal;
|
||
END;
|
||
END ELSE
|
||
BEGIN
|
||
total := nowTotal;
|
||
END;
|
||
FOR i := 1 TO total DO
|
||
BEGIN
|
||
IF (installedVer[i] > installingVer[i]) THEN
|
||
BEGIN
|
||
Result := TRUE;
|
||
Exit;
|
||
END ELSE IF (installedVer[i] < installingVer[i]) THEN
|
||
BEGIN
|
||
Result := FALSE;
|
||
Exit;
|
||
END ELSE
|
||
BEGIN
|
||
Continue;
|
||
END;
|
||
END;
|
||
Result := FALSE;
|
||
END;
|
||
|
||
//主界面关闭按钮按下时执行的脚本
|
||
PROCEDURE button_close_on_click(hBtn : HWND);
|
||
BEGIN
|
||
WizardForm.CancelButton.OnClick(WizardForm);
|
||
END;
|
||
|
||
//主界面最小化按钮按下时执行的脚本
|
||
PROCEDURE button_minimize_on_click(hBtn : HWND);
|
||
BEGIN
|
||
SendMessage(WizardForm.Handle, WM_SYSCOMMAND, 61472, 0);
|
||
END;
|
||
|
||
//主界面自定义安装按钮按下时执行的脚本
|
||
PROCEDURE button_customize_setup_on_click(hBtn : HWND);
|
||
BEGIN
|
||
IF is_wizardform_show_normal THEN
|
||
BEGIN
|
||
WizardForm.Height := WIZARDFORM_HEIGHT_MORE;
|
||
image_wizardform_background := ImgLoad(WizardForm.Handle, ExpandConstant('{tmp}\background_welcome_more.png'), 0, 0, WIZARDFORM_WIDTH_NORMAL, WIZARDFORM_HEIGHT_MORE, FALSE, TRUE);
|
||
#ifdef EnableRoundRect
|
||
shape_form_round(WizardForm,{#RoundRectData});
|
||
#endif
|
||
edit_target_path.Show();
|
||
edit_target_path.ReadOnly := TRUE;
|
||
|
||
BtnSetVisibility(button_browse, TRUE);
|
||
#ifdef RegisteAssociations
|
||
BtnSetVisibility(checkbox_setdefault, TRUE);
|
||
#endif
|
||
BtnSetVisibility(button_customize_setup, FALSE);
|
||
BtnSetVisibility(button_uncustomize_setup, TRUE);
|
||
#ifndef PortableBuild
|
||
//IF is_installed_before() THEN
|
||
//BEGIN
|
||
// edit_target_path.Enabled := FALSE;
|
||
// BtnSetEnabled(button_browse, FALSE);
|
||
//label_wizardform_more_product_already_installed.Show()
|
||
//END;
|
||
#endif
|
||
is_wizardform_show_normal := FALSE;
|
||
END ELSE
|
||
BEGIN
|
||
edit_target_path.Hide();
|
||
//label_wizardform_more_product_already_installed.Hide();
|
||
BtnSetVisibility(button_browse, FALSE);
|
||
#ifdef RegisteAssociations
|
||
BtnSetVisibility(checkbox_setdefault, FALSE);
|
||
#endif
|
||
WizardForm.Height := WIZARDFORM_HEIGHT_NORMAL;
|
||
image_wizardform_background := ImgLoad(WizardForm.Handle, ExpandConstant('{tmp}\background_welcome.png'), 0, 0, WIZARDFORM_WIDTH_NORMAL, WIZARDFORM_HEIGHT_NORMAL, FALSE, TRUE);
|
||
#ifdef EnableRoundRect
|
||
shape_form_round(WizardForm,{#RoundRectData});
|
||
#endif
|
||
BtnSetVisibility(button_customize_setup, TRUE);
|
||
BtnSetVisibility(button_uncustomize_setup, FALSE);
|
||
is_wizardform_show_normal := TRUE;
|
||
END;
|
||
ImgApplyChanges(WizardForm.Handle);
|
||
END;
|
||
|
||
//主界面浏览按钮按下时执行的脚本
|
||
PROCEDURE button_browse_on_click(hBtn : HWND);
|
||
BEGIN
|
||
WizardForm.DirBrowseButton.OnClick(WizardForm);
|
||
edit_target_path.Text := WizardForm.DirEdit.Text;
|
||
END;
|
||
|
||
//路径输入框文本变化时执行的脚本
|
||
PROCEDURE edit_target_path_on_change(Sender : TObject);
|
||
BEGIN
|
||
WizardForm.DirEdit.Text := edit_target_path.Text;
|
||
END;
|
||
|
||
//同意许可协议的复选框被点击时执行的脚本
|
||
PROCEDURE checkbox_license_on_click(hBtn : HWND);
|
||
BEGIN
|
||
IF BtnGetChecked(checkbox_license) THEN
|
||
BEGIN
|
||
BtnSetEnabled(button_setup_or_next, TRUE);
|
||
END ELSE
|
||
BEGIN
|
||
BtnSetEnabled(button_setup_or_next, FALSE);
|
||
END;
|
||
END;
|
||
|
||
//设为默认软件的复选框被点击时执行的脚本
|
||
PROCEDURE checkbox_setdefault_on_click(hBtn : HWND);
|
||
BEGIN
|
||
IF BtnGetChecked(checkbox_setdefault) THEN
|
||
BEGIN
|
||
need_to_change_associations := TRUE;
|
||
END ELSE
|
||
BEGIN
|
||
need_to_change_associations := FALSE;
|
||
END;
|
||
END;
|
||
|
||
//返回设为默认软件复选框的状态，已勾选则返回TRUE，否则返回FALSE
|
||
FUNCTION is_setdefault_checkbox_checked() : BOOLEAN;
|
||
BEGIN
|
||
Result := need_to_change_associations;
|
||
END;
|
||
|
||
//若设为默认软件的复选框被勾选，则会在文件复制结束时执行此段脚本
|
||
PROCEDURE check_if_need_change_associations();
|
||
BEGIN
|
||
IF is_setdefault_checkbox_checked() THEN
|
||
BEGIN
|
||
//TODO
|
||
//MsgBox('此处执行注册文件后缀名的操作。', mbInformation, MB_OK);
|
||
END;
|
||
END;
|
||
|
||
//主界面安装按钮按下时执行的脚本
|
||
PROCEDURE button_setup_or_next_on_click(hBtn : HWND);
|
||
var
|
||
ResultStr: String;
|
||
ResultCode: Integer;
|
||
BEGIN
|
||
#ifdef UninstallBefore
|
||
if isFirst then
|
||
begin
|
||
if RegQueryStringValue(HKLM, PRODUCT_REGISTRY_KEY_64, 'UninstallString', ResultStr) then
|
||
begin
|
||
ResultStr := RemoveQuotes(ResultStr);
|
||
Exec(ResultStr, '/SILENT', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
|
||
end;
|
||
end;
|
||
isFirst := FALSE;
|
||
#endif
|
||
WizardForm.NextButton.OnClick(WizardForm);
|
||
END;
|
||
|
||
//复制文件时执行的脚本，每复制1%都会被调用一次，若要调整进度条或进度提示请在此段修改
|
||
FUNCTION PBProc(h : hWnd; Msg, wParam, lParam : LONGINT) : LONGINT;
|
||
VAR
|
||
pr, i1, i2 : EXTENDED;
|
||
w : INTEGER;
|
||
BEGIN
|
||
Result := CallWindowProc(PBOldProc, h, Msg, wParam, lParam);
|
||
IF ((Msg = $402) AND (WizardForm.ProgressGauge.Position > WizardForm.ProgressGauge.Min)) THEN
|
||
BEGIN
|
||
i1 := WizardForm.ProgressGauge.Position - WizardForm.ProgressGauge.Min;
|
||
i2 := WizardForm.ProgressGauge.Max - WizardForm.ProgressGauge.Min;
|
||
pr := (i1 * 100) / i2;
|
||
label_install_progress.Caption := Format('%d', [Round(pr)]) + '%';
|
||
w := Round((560 * pr) / 100);
|
||
ImgSetPosition(image_progressbar_foreground, 20, 374, w, 6);
|
||
ImgSetVisiblePart(image_progressbar_foreground, 0, 0, w, 6);
|
||
ImgApplyChanges(WizardForm.Handle);
|
||
#ifdef EnableRoundRect
|
||
shape_form_round(WizardForm,{#RoundRectData});
|
||
#endif
|
||
END;
|
||
END;
|
||
|
||
//阅读许可协议的按钮按下时执行的脚本
|
||
PROCEDURE button_license_on_click(hBtn : HWND);
|
||
VAR
|
||
ErrorCode : INTEGER;
|
||
BEGIN
|
||
ShellExec('', '{#MyAppLicenseURL}', '', '', SW_SHOW, ewNoWait, ErrorCode);
|
||
END;
|
||
|
||
//取消安装弹框的确定按钮按下时执行的脚本
|
||
PROCEDURE button_messagebox_ok_on_click(hBtn : HWND);
|
||
BEGIN
|
||
can_exit_setup := TRUE;
|
||
messagebox_close.Close();
|
||
END;
|
||
|
||
//取消安装弹框的取消按钮按下时执行的脚本
|
||
PROCEDURE button_messagebox_cancel_on_click(hBtn : HWND);
|
||
BEGIN
|
||
can_exit_setup := FALSE;
|
||
messagebox_close.Close();
|
||
END;
|
||
|
||
//主界面被点住就随鼠标移动的脚本
|
||
PROCEDURE wizardform_on_mouse_down(Sender : TObject; Button : TMouseButton; Shift : TShiftState; X, Y : INTEGER);
|
||
BEGIN
|
||
ReleaseCapture();
|
||
SendMessage(WizardForm.Handle, WM_SYSCOMMAND, $F012, 0);
|
||
END;
|
||
|
||
//取消弹框被点住就随鼠标移动的脚本
|
||
PROCEDURE messagebox_on_mouse_down(Sender : TObject; Button : TMouseButton; Shift : TShiftState; X, Y : INTEGER);
|
||
BEGIN
|
||
ReleaseCapture();
|
||
SendMessage(messagebox_close.Handle, WM_SYSCOMMAND, $F012, 0);
|
||
END;
|
||
|
||
//判断系统是否为Win7，是则返回TRUE，否则返回FALSE
|
||
PROCEDURE determine_wether_is_windows_7_or_not();
|
||
VAR
|
||
sysVersion : TWindowsVersion;
|
||
BEGIN
|
||
GetWindowsVersionEx(sysVersion);
|
||
IF sysVersion.NTPlatform AND (sysVersion.Major = 6) AND (sysVersion.Minor = 1) THEN
|
||
BEGIN
|
||
is_platform_windows_7 := TRUE;
|
||
END ELSE
|
||
BEGIN
|
||
is_platform_windows_7 := FALSE;
|
||
END;
|
||
END;
|
||
|
||
//创建取消弹框的脚本
|
||
PROCEDURE messagebox_close_create();
|
||
BEGIN
|
||
messagebox_close := CreateCustomForm();
|
||
WITH messagebox_close DO
|
||
BEGIN
|
||
BorderStyle := bsNone;
|
||
Width := 380;
|
||
Height := 190;
|
||
Color := clWhite;
|
||
Caption := '';
|
||
END;
|
||
label_messagebox_title := TLabel.Create(messagebox_close);
|
||
WITH label_messagebox_title DO
|
||
BEGIN
|
||
Parent := messagebox_close;
|
||
AutoSize := FALSE;
|
||
Left := 30;
|
||
Top := 5;
|
||
Width := 400;
|
||
Height := 20;
|
||
Font.Name := 'Microsoft YaHei';
|
||
Font.Size := 10;
|
||
Font.Color := clWhite;
|
||
Caption := '{#MyAppName} 安装';
|
||
Transparent := TRUE;
|
||
OnMouseDown := @messagebox_on_mouse_down;
|
||
END;
|
||
label_messagebox_information := TLabel.Create(messagebox_close);
|
||
WITH label_messagebox_information DO
|
||
BEGIN
|
||
Parent := messagebox_close;
|
||
AutoSize := FALSE;
|
||
Left := 70;
|
||
Top := 64;
|
||
Width := 400;
|
||
Height := 20;
|
||
Font.Name := 'Microsoft YaHei';
|
||
Font.Size := 10;
|
||
Font.Color := clBlack;
|
||
Caption := '您确定要退出“{#MyAppName}”安装程序？';
|
||
Transparent := TRUE;
|
||
OnMouseDown := @messagebox_on_mouse_down;
|
||
END;
|
||
label_messagebox_main := TLabel.Create(messagebox_close);
|
||
WITH label_messagebox_main DO
|
||
BEGIN
|
||
Parent := messagebox_close;
|
||
AutoSize := FALSE;
|
||
Left := 0;
|
||
Top := 0;
|
||
Width := messagebox_close.Width;
|
||
Height := messagebox_close.Height;
|
||
Caption := '';
|
||
Transparent := TRUE;
|
||
OnMouseDown := @messagebox_on_mouse_down;
|
||
END;
|
||
image_messagebox_background := ImgLoad(messagebox_close.Handle, ExpandConstant('{tmp}\background_messagebox.png'), 0, 0, 380, 190, FALSE, TRUE);
|
||
button_messagebox_close := BtnCreate(messagebox_close.Handle, 350, 0, 30, 30, ExpandConstant('{tmp}\button_close.png'), 0, FALSE);
|
||
BtnSetEvent(button_messagebox_close, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_messagebox_cancel_on_click, 1));
|
||
button_messagebox_ok := BtnCreate(messagebox_close.Handle, 206, 150, 76, 28, ExpandConstant('{tmp}\button_ok.png'), 0, FALSE);
|
||
BtnSetEvent(button_messagebox_ok, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_messagebox_ok_on_click, 1));
|
||
button_messagebox_cancel := BtnCreate(messagebox_close.Handle, 293, 150, 76, 28, ExpandConstant('{tmp}\button_cancel.png'), 0, FALSE);
|
||
BtnSetEvent(button_messagebox_cancel, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_messagebox_cancel_on_click, 1));
|
||
ImgApplyChanges(messagebox_close.Handle);
|
||
#ifdef EnableRoundRect
|
||
shape_form_round(messagebox_close,{#RoundRectData});
|
||
#endif
|
||
END;
|
||
|
||
//释放安装程序时调用的脚本
|
||
PROCEDURE release_installer();
|
||
BEGIN
|
||
gdipShutdown();
|
||
messagebox_close.Release();
|
||
WizardForm.Release();
|
||
END;
|
||
|
||
//在初始化之后释放安装程序的脚本
|
||
PROCEDURE release_installer_after_init();
|
||
BEGIN
|
||
messagebox_close.Release();
|
||
WizardForm.Release();
|
||
END;
|
||
|
||
//释放需要的临时资源文件
|
||
PROCEDURE extract_temp_files();
|
||
BEGIN
|
||
ExtractTemporaryFile('button_customize_setup.png');
|
||
ExtractTemporaryFile('button_uncustomize_setup.png');
|
||
ExtractTemporaryFile('button_finish.png');
|
||
ExtractTemporaryFile('button_setup_or_next.png');
|
||
ExtractTemporaryFile('background_welcome.png');
|
||
ExtractTemporaryFile('background_welcome_more.png');
|
||
ExtractTemporaryFile('button_browse.png');
|
||
ExtractTemporaryFile('progressbar_background.png');
|
||
ExtractTemporaryFile('progressbar_foreground.png');
|
||
ExtractTemporaryFile('button_license.png');
|
||
ExtractTemporaryFile('checkbox_license.png');
|
||
#ifdef RegisteAssociations
|
||
ExtractTemporaryFile('checkbox_setdefault.png');
|
||
#endif
|
||
ExtractTemporaryFile('background_installing.png');
|
||
ExtractTemporaryFile('background_finish.png');
|
||
ExtractTemporaryFile('button_close.png');
|
||
ExtractTemporaryFile('button_minimize.png');
|
||
ExtractTemporaryFile('background_messagebox.png');
|
||
ExtractTemporaryFile('button_cancel.png');
|
||
ExtractTemporaryFile('button_ok.png');
|
||
END;
|
||
|
||
//重载主界面取消按钮被按下后的处理过程
|
||
PROCEDURE CancelButtonClick(CurPageID : INTEGER; VAR Cancel, Confirm: BOOLEAN);
|
||
BEGIN
|
||
Confirm := FALSE;
|
||
//messagebox_close.Center();
|
||
messagebox_close.ShowModal();
|
||
IF can_exit_setup THEN
|
||
BEGIN
|
||
release_installer();
|
||
Cancel := TRUE;
|
||
END ELSE
|
||
BEGIN
|
||
Cancel := FALSE;
|
||
END;
|
||
END;
|
||
|
||
//重载安装程序初始化函数，判断是否已经安装新版本，是则禁止安装
|
||
FUNCTION InitializeSetup() : BOOLEAN;
|
||
BEGIN
|
||
#ifndef PortableBuild
|
||
#ifdef OnlyInstallNewVersion
|
||
IF is_installed_before() THEN
|
||
BEGIN
|
||
IF is_installing_older_version() THEN
|
||
BEGIN
|
||
MsgBox('您已安装更新版本的“{#MyAppName}”，不允许使用旧版本替换新版本，请单击“确定”按钮退出此安装程序。', mbInformation, MB_OK);
|
||
Result := FALSE;
|
||
END ELSE
|
||
BEGIN
|
||
Result := TRUE;
|
||
END;
|
||
END ELSE
|
||
BEGIN
|
||
Result := TRUE;
|
||
END;
|
||
#else
|
||
Result := TRUE;
|
||
#endif
|
||
#else
|
||
Result := TRUE;
|
||
#endif
|
||
|
||
|
||
END;
|
||
|
||
//重载安装程序初始化函数（和上边那个不一样），进行初始化操作
|
||
PROCEDURE InitializeWizard();
|
||
BEGIN
|
||
isFirst := TRUE;
|
||
is_installer_initialized := TRUE;
|
||
is_wizardform_show_normal := TRUE;
|
||
is_wizardform_released := FALSE;
|
||
need_to_change_associations := TRUE;
|
||
determine_wether_is_windows_7_or_not();
|
||
extract_temp_files();
|
||
WizardForm.InnerNotebook.Hide();
|
||
WizardForm.OuterNotebook.Hide();
|
||
WizardForm.Bevel.Hide();
|
||
WITH WizardForm DO
|
||
BEGIN
|
||
BorderStyle := bsNone;
|
||
Position := poScreenCenter;
|
||
Width := WIZARDFORM_WIDTH_NORMAL;
|
||
Height := WIZARDFORM_HEIGHT_MORE;
|
||
Color := clWhite;
|
||
NextButton.Height := 0;
|
||
CancelButton.Height := 0;
|
||
BackButton.Visible := FALSE;
|
||
END;
|
||
label_wizardform_title := TLabel.Create(WizardForm);
|
||
WITH label_wizardform_title DO
|
||
BEGIN
|
||
Parent := WizardForm;
|
||
AutoSize := FALSE;
|
||
Left := 10;
|
||
Top := 5;
|
||
Width := 200;
|
||
Height := 20;
|
||
Font.Name := 'Microsoft YaHei';
|
||
Font.Size := 9;
|
||
Font.Color := clWhite;
|
||
Caption := '{#MyAppName} V{#MyAppVersion} 安装';
|
||
Transparent := TRUE;
|
||
OnMouseDown := @wizardform_on_mouse_down;
|
||
END;
|
||
//label_wizardform_more_product_already_installed := TLabel.Create(WizardForm);
|
||
// WITH label_wizardform_more_product_already_installed DO
|
||
// BEGIN
|
||
// Parent := WizardForm;
|
||
// AutoSize := FALSE;
|
||
// Left := 85;
|
||
// Top := 449;
|
||
// Width := 200;
|
||
// Height := 20;
|
||
// Font.Name := 'Microsoft YaHei';
|
||
// Font.Size := 9;
|
||
// Font.Color := clGray;
|
||
// Caption := '软件已经安装，不允许更换目录。';
|
||
// Transparent := TRUE;
|
||
// OnMouseDown := @wizardform_on_mouse_down;
|
||
//END;
|
||
//label_wizardform_more_product_already_installed.Hide();
|
||
label_wizardform_main := TLabel.Create(WizardForm);
|
||
WITH label_wizardform_main DO
|
||
BEGIN
|
||
Parent := WizardForm;
|
||
AutoSize := FALSE;
|
||
Left := 0;
|
||
Top := 0;
|
||
Width := WizardForm.Width;
|
||
Height := WizardForm.Height;
|
||
Caption := '';
|
||
Transparent := TRUE;
|
||
OnMouseDown := @wizardform_on_mouse_down;
|
||
END;
|
||
edit_target_path:= TEdit.Create(WizardForm);
|
||
WITH edit_target_path DO
|
||
BEGIN
|
||
Parent := WizardForm;
|
||
Text := WizardForm.DirEdit.Text;
|
||
Font.Name := 'Microsoft YaHei';
|
||
Font.Size := 9;
|
||
BorderStyle := bsNone;
|
||
SetBounds(91,423,402,20);
|
||
OnChange := @edit_target_path_on_change;
|
||
Color := clWhite;
|
||
TabStop := FALSE;
|
||
END;
|
||
edit_target_path.Hide();
|
||
button_close := BtnCreate(WizardForm.Handle, 570, 0, 30, 30, ExpandConstant('{tmp}\button_close.png'), 0, FALSE);
|
||
BtnSetEvent(button_close, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_close_on_click, 1));
|
||
button_minimize := BtnCreate(WizardForm.Handle, 540, 0, 30, 30, ExpandConstant('{tmp}\button_minimize.png'), 0, FALSE);
|
||
BtnSetEvent(button_minimize, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_minimize_on_click, 1));
|
||
button_setup_or_next := BtnCreate(WizardForm.Handle, 211, 305, 178, 43, ExpandConstant('{tmp}\button_setup_or_next.png'), 0, FALSE);
|
||
BtnSetEvent(button_setup_or_next, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_setup_or_next_on_click, 1));
|
||
button_browse := BtnCreate(WizardForm.Handle, 506, 420, 75, 24, ExpandConstant('{tmp}\button_browse.png'), 0, FALSE);
|
||
BtnSetEvent(button_browse, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_browse_on_click, 1));
|
||
BtnSetVisibility(button_browse, FALSE);
|
||
button_customize_setup := BtnCreate(WizardForm.Handle, 511, 374, 78, 14, ExpandConstant('{tmp}\button_customize_setup.png'), 0, FALSE);
|
||
BtnSetEvent(button_customize_setup, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_customize_setup_on_click, 1));
|
||
button_uncustomize_setup := BtnCreate(WizardForm.Handle, 511, 374, 78, 14, ExpandConstant('{tmp}\button_uncustomize_setup.png'), 0, FALSE);
|
||
BtnSetEvent(button_uncustomize_setup, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_customize_setup_on_click, 1));
|
||
BtnSetVisibility(button_uncustomize_setup, FALSE);
|
||
PBOldProc := SetWindowLong(WizardForm.ProgressGauge.Handle, -4, PBCallBack(@PBProc, 4));
|
||
ImgApplyChanges(WizardForm.Handle);
|
||
messagebox_close_create();
|
||
#ifdef EnableRoundRect
|
||
shape_form_round(WizardForm,{#RoundRectData});
|
||
#endif
|
||
END;
|
||
|
||
//安装程序销毁时会调用这个函数
|
||
PROCEDURE DeinitializeSetup();
|
||
BEGIN
|
||
IF ((is_wizardform_released = FALSE) AND (can_exit_setup = FALSE)) THEN
|
||
BEGIN
|
||
gdipShutdown();
|
||
IF is_installer_initialized THEN
|
||
BEGIN
|
||
release_installer_after_init();
|
||
END;
|
||
END;
|
||
END;
|
||
|
||
//安装页面改变时会调用这个函数
|
||
PROCEDURE CurPageChanged(CurPageID : INTEGER);
|
||
BEGIN
|
||
IF (CurPageID = wpWelcome) THEN
|
||
BEGIN
|
||
image_wizardform_background := ImgLoad(WizardForm.Handle, ExpandConstant('{tmp}\background_welcome.png'), 0, 0, WIZARDFORM_WIDTH_NORMAL, WIZARDFORM_HEIGHT_NORMAL, FALSE, TRUE);
|
||
button_license := BtnCreate(WizardForm.Handle, 110, 376, 96, 12, ExpandConstant('{tmp}\button_license.png'), 0, FALSE);
|
||
BtnSetEvent(button_license, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_license_on_click, 1));
|
||
checkbox_license := BtnCreate(WizardForm.Handle, 11, 374, 93, 17, ExpandConstant('{tmp}\checkbox_license.png'), 0, TRUE);
|
||
BtnSetEvent(checkbox_license, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@checkbox_license_on_click, 1));
|
||
BtnSetChecked(checkbox_license, TRUE);
|
||
#ifdef RegisteAssociations
|
||
checkbox_setdefault := BtnCreate(WizardForm.Handle, 85, 470, 92, 17, ExpandConstant('{tmp}\checkbox_setdefault.png'), 0, TRUE);
|
||
BtnSetEvent(checkbox_setdefault, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@checkbox_setdefault_on_click, 1));
|
||
BtnSetChecked(checkbox_setdefault, TRUE);
|
||
BtnSetVisibility(checkbox_setdefault, FALSE);
|
||
#endif
|
||
WizardForm.Height := WIZARDFORM_HEIGHT_NORMAL;
|
||
ImgApplyChanges(WizardForm.Handle);
|
||
#ifdef EnableRoundRect
|
||
shape_form_round(WizardForm,{#RoundRectData});
|
||
#endif
|
||
END;
|
||
IF (CurPageID = wpInstalling) THEN
|
||
BEGIN
|
||
edit_target_path.Hide();
|
||
//label_wizardform_more_product_already_installed.Hide();
|
||
BtnSetVisibility(button_browse, FALSE);
|
||
WizardForm.Height := WIZARDFORM_HEIGHT_NORMAL;
|
||
is_wizardform_show_normal := TRUE;
|
||
BtnSetVisibility(button_customize_setup, FALSE);
|
||
BtnSetVisibility(button_uncustomize_setup, FALSE);
|
||
BtnSetVisibility(button_close, FALSE);
|
||
BtnSetPosition(button_minimize, 570, 0, 30, 30);
|
||
#ifdef RegisteAssociations
|
||
BtnSetVisibility(checkbox_setdefault, FALSE);
|
||
#endif
|
||
BtnSetVisibility(button_license, FALSE);
|
||
BtnSetVisibility(checkbox_license, FALSE);
|
||
label_install_progress := TLabel.Create(WizardForm);
|
||
WITH label_install_progress DO
|
||
BEGIN
|
||
Parent := WizardForm;
|
||
AutoSize := FALSE;
|
||
Left := 538;
|
||
Top := 349;
|
||
Width := 40;
|
||
Height := 30;
|
||
Font.Name := 'Microsoft YaHei';
|
||
Font.Size := 10;
|
||
Font.Color := clBlack;
|
||
Caption := '';
|
||
Transparent := TRUE;
|
||
Alignment := taRightJustify;
|
||
OnMouseDown := @wizardform_on_mouse_down;
|
||
END;
|
||
image_wizardform_background := ImgLoad(WizardForm.Handle, ExpandConstant('{tmp}\background_installing.png'), 0, 0, WIZARDFORM_WIDTH_NORMAL, WIZARDFORM_HEIGHT_NORMAL, FALSE, TRUE);
|
||
image_progressbar_background := ImgLoad(WizardForm.Handle, ExpandConstant('{tmp}\progressbar_background.png'), 20, 374, 560, 6, FALSE, TRUE);
|
||
image_progressbar_foreground := ImgLoad(WizardForm.Handle, ExpandConstant('{tmp}\progressbar_foreground.png'), 20, 374, 0, 0, TRUE, TRUE);
|
||
BtnSetVisibility(button_setup_or_next, FALSE);
|
||
ImgApplyChanges(WizardForm.Handle);
|
||
END;
|
||
IF (CurPageID = wpFinished) THEN
|
||
BEGIN
|
||
label_install_progress.Caption := '';
|
||
label_install_progress.Visible := FALSE;
|
||
ImgSetVisibility(image_progressbar_background, FALSE);
|
||
ImgSetVisibility(image_progressbar_foreground, FALSE);
|
||
BtnSetPosition(button_minimize, 540, 0, 30, 30);
|
||
BtnSetVisibility(button_close, TRUE);
|
||
button_setup_or_next := BtnCreate(WizardForm.Handle, 214, 305, 180, 44, ExpandConstant('{tmp}\button_finish.png'), 0, FALSE);
|
||
BtnSetEvent(button_setup_or_next, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_setup_or_next_on_click, 1));
|
||
BtnSetEvent(button_close, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_setup_or_next_on_click, 1));
|
||
image_wizardform_background := ImgLoad(WizardForm.Handle, ExpandConstant('{tmp}\background_finish.png'), 0, 0, WIZARDFORM_WIDTH_NORMAL, WIZARDFORM_HEIGHT_NORMAL, FALSE, TRUE);
|
||
ImgApplyChanges(WizardForm.Handle);
|
||
END;
|
||
END;
|
||
|
||
//安装步骤改变时会调用这个函数
|
||
//PROCEDURE CurStepChanged(CurStep : TSetupStep);
|
||
//BEGIN
|
||
// IF (CurStep = ssPostInstall) THEN
|
||
// BEGIN
|
||
//#ifdef RegisteAssociations
|
||
// check_if_need_change_associations();
|
||
//#endif
|
||
// //AND DO OTHER THINGS
|
||
// END;
|
||
// IF (CurStep = ssDone) THEN
|
||
// BEGIN
|
||
// is_wizardform_released := TRUE;
|
||
// release_installer();
|
||
// END;
|
||
//END;
|
||
|
||
//指定跳过哪些标准页面
|
||
FUNCTION ShouldSkipPage(PageID : INTEGER) : BOOLEAN;
|
||
BEGIN
|
||
IF (PageID = wpLicense) THEN Result := TRUE;
|
||
IF (PageID = wpPassword) THEN Result := TRUE;
|
||
IF (PageID = wpInfoBefore) THEN Result := TRUE;
|
||
IF (PageID = wpUserInfo) THEN Result := TRUE;
|
||
IF (PageID = wpSelectDir) THEN Result := TRUE;
|
||
IF (PageID = wpSelectComponents) THEN Result := TRUE;
|
||
IF (PageID = wpSelectProgramGroup) THEN Result := TRUE;
|
||
IF (PageID = wpSelectTasks) THEN Result := TRUE;
|
||
IF (PageID = wpReady) THEN Result := TRUE;
|
||
IF (PageID = wpPreparing) THEN Result := TRUE;
|
||
IF (PageID = wpInfoAfter) THEN Result := TRUE;
|
||
END;
|
||
//卸载步骤改变时会调用此函数
|
||
PROCEDURE CurUninstallStepChanged(CurUninstallStep : TUninstallStep);
|
||
BEGIN
|
||
IF (CurUninstallStep = usAppMutexCheck) THEN
|
||
BEGIN
|
||
//此阶段为检查应用程序互斥的阶段，请在此进行互斥操作
|
||
END;
|
||
END;
|
||
|
||
procedure CurStepChanged(CurStep: TSetupStep);
|
||
var
|
||
uninspath, uninsname, NewUninsName : string;
|
||
begin
|
||
if CurStep=ssDone then
|
||
begin
|
||
// 指定新的卸载文件名（不包含扩展名），请相应修改！
|
||
NewUninsName := '卸载';
|
||
// 以下重命名卸载文件
|
||
uninspath:= ExtractFilePath(ExpandConstant('{uninstallexe}'));
|
||
uninsname:= Copy(ExtractFileName(ExpandConstant('{uninstallexe}')),1,8);
|
||
RenameFile(uninspath + uninsname + '.exe', uninspath + NewUninsName + '.exe');
|
||
RenameFile(uninspath + uninsname + '.dat', uninspath + NewUninsName + '.dat');
|
||
// 以下修改相应的注册表内容
|
||
if RegKeyExists(HKEY_LOCAL_MACHINE, PRODUCT_REGISTRY_KEY_64) then
|
||
begin
|
||
RegWriteStringValue(HKEY_LOCAL_MACHINE, PRODUCT_REGISTRY_KEY_64, 'UninstallString', '"' + uninspath + NewUninsName + '.exe"');
|
||
RegWriteStringValue(HKEY_LOCAL_MACHINE, PRODUCT_REGISTRY_KEY_64, 'QuietUninstallString', '"' + uninspath + NewUninsName + '.exe" /SILENT');
|
||
end;
|
||
end;
|
||
IF (CurStep = ssPostInstall) THEN
|
||
BEGIN
|
||
#ifdef RegisteAssociations
|
||
check_if_need_change_associations();
|
||
#endif
|
||
//AND DO OTHER THINGS
|
||
END;
|
||
IF (CurStep = ssDone) THEN
|
||
BEGIN
|
||
is_wizardform_released := TRUE;
|
||
release_installer();
|
||
END;
|
||
end; |