add demo
This commit is contained in:
798
InnoSetupBeauty02/include/Code.iss
Normal file
798
InnoSetupBeauty02/include/Code.iss
Normal file
@@ -0,0 +1,798 @@
|
||||
//为了方便管理，就将[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;
|
||||
29
InnoSetupBeauty02/include/botva2.iss
Normal file
29
InnoSetupBeauty02/include/botva2.iss
Normal file
@@ -0,0 +1,29 @@
|
||||
//这里存放的是botva2的函数声明
|
||||
|
||||
[Code]
|
||||
TYPE
|
||||
TBtnEventProc = PROCEDURE(h : HWND);
|
||||
TPBProc = FUNCTION(h : hWnd; Msg, wParam, lParam : LONGINT) : LONGINT;
|
||||
|
||||
FUNCTION ImgLoad(h : HWND; FileName : PAnsiChar; Left, Top, Width, Height : INTEGER; Stretch, IsBkg : BOOLEAN) : LONGINT; EXTERNAL 'ImgLoad@files:botva2.dll STDCALL DELAYLOAD';
|
||||
PROCEDURE ImgSetVisibility(img : LONGINT; Visible : BOOLEAN); EXTERNAL 'ImgSetVisibility@files:botva2.dll STDCALL DELAYLOAD';
|
||||
PROCEDURE ImgApplyChanges(h : HWND); EXTERNAL 'ImgApplyChanges@files:botva2.dll STDCALL DELAYLOAD';
|
||||
PROCEDURE ImgSetPosition(img : LONGINT; NewLeft, NewTop, NewWidth, NewHeight : INTEGER); EXTERNAL 'ImgSetPosition@files:botva2.dll STDCALL DELAYLOAD';
|
||||
PROCEDURE ImgRelease(img : LONGINT); EXTERNAL 'ImgRelease@files:botva2.dll STDCALL DELAYLOAD';
|
||||
PROCEDURE CreateFormFromImage(h : HWND; FileName : PAnsiChar); EXTERNAL 'CreateFormFromImage@files:botva2.dll STDCALL DELAYLOAD';
|
||||
PROCEDURE gdipShutdown(); EXTERNAL 'gdipShutdown@files:botva2.dll STDCALL DELAYLOAD';
|
||||
FUNCTION WrapBtnCallback(Callback : TBtnEventProc; ParamCount : INTEGER) : LONGWORD; EXTERNAL 'wrapcallback@files:innocallback.dll STDCALL DELAYLOAD';
|
||||
FUNCTION BtnCreate(hParent : HWND; Left, Top, Width, Height : INTEGER; FileName : PAnsiChar; ShadowWidth : INTEGER; IsCheckBtn : BOOLEAN) : HWND; EXTERNAL 'BtnCreate@files:botva2.dll STDCALL DELAYLOAD';
|
||||
PROCEDURE BtnSetVisibility(h : HWND; Value : BOOLEAN); EXTERNAL 'BtnSetVisibility@files:botva2.dll STDCALL DELAYLOAD';
|
||||
PROCEDURE BtnSetEvent(h : HWND; EventID : INTEGER; Event : LONGWORD); EXTERNAL 'BtnSetEvent@files:botva2.dll STDCALL DELAYLOAD';
|
||||
PROCEDURE BtnSetEnabled(h : HWND; Value : BOOLEAN); EXTERNAL 'BtnSetEnabled@files:botva2.dll STDCALL DELAYLOAD';
|
||||
FUNCTION BtnGetChecked(h : HWND) : BOOLEAN; EXTERNAL 'BtnGetChecked@files:botva2.dll STDCALL DELAYLOAD';
|
||||
PROCEDURE BtnSetChecked(h : HWND; Value : BOOLEAN); EXTERNAL 'BtnSetChecked@files:botva2.dll STDCALL DELAYLOAD';
|
||||
PROCEDURE BtnSetPosition(h : HWND; NewLeft, NewTop, NewWidth, NewHeight : INTEGER); EXTERNAL 'BtnSetPosition@files:botva2.dll STDCALL DELAYLOAD';
|
||||
FUNCTION SetWindowLong(h : HWnd; Index : INTEGER; NewLong : LONGINT) : LONGINT; EXTERNAL 'SetWindowLongA@user32.dll STDCALL';
|
||||
FUNCTION PBCallBack(P : TPBProc; ParamCount : INTEGER) : LONGWORD; EXTERNAL 'wrapcallback@files:innocallback.dll STDCALL DELAYLOAD';
|
||||
FUNCTION CallWindowProc(lpPrevWndFunc : LONGINT; h : HWND; Msg : UINT; wParam, lParam : LONGINT) : LONGINT; EXTERNAL 'CallWindowProcA@user32.dll STDCALL';
|
||||
PROCEDURE ImgSetVisiblePart(img : LONGINT; NewLeft, NewTop, NewWidth, NewHeight : INTEGER); EXTERNAL 'ImgSetVisiblePart@files:botva2.dll STDCALL DELAYLOAD';
|
||||
FUNCTION ReleaseCapture() : LONGINT; EXTERNAL 'ReleaseCapture@user32.dll STDCALL';
|
||||
FUNCTION CreateRoundRectRgn(p1, p2, p3, p4, p5, p6 : INTEGER) : THandle; EXTERNAL 'CreateRoundRectRgn@gdi32.dll STDCALL';
|
||||
FUNCTION SetWindowRgn(h : HWND; hRgn : THandle; bRedraw : BOOLEAN) : INTEGER; EXTERNAL 'SetWindowRgn@user32.dll STDCALL';
|
||||
Reference in New Issue
Block a user