当前位置: 首页 > 教程资源 > 正文
为您的 Inno Setup 安装程序在卸载时增加卸载密码解决方案

为您的 Inno Setup 安装程序在卸载时增加卸载密码解决方案

作者:大眼仔~旭 日期:2周前 (11-18) 评论:0 条

摘要:某些 Inno Setup 用户要求在可能的情况下要求要卸载软件的用户输入密码。例如,防病毒软件可能是此要求的候选者。下面的 Inno Setup 代码显示仅在密码正确的情况下卸载软件。此方法非常弱,很容易找到密码。因此,想要使用此策略来保护其软件免受卸载的人,需要编写更安全的代码。如果用户要卸载并且不知道密码文件是否…

某些 Inno Setup 用户要求在可能的情况下要求要卸载软件的用户输入密码。例如,防病毒软件可能是此要求的候选者。下面的 Inno Setup 代码显示仅在密码正确的情况下卸载软件。此方法非常弱,很容易找到密码。因此,想要使用此策略来保护其软件免受卸载的人,需要编写更安全的代码。如果用户要卸载并且不知道密码文件是否仍然可以从应用程序的文件夹中删除。在此示例中,卸载密码为 removeme 。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
[Code]
function AskPassword(): Boolean;
var
  Form: TSetupForm;
  OKButton, CancelButton: TButton;
  PwdEdit: TPasswordEdit;
begin
  Result := false;
  Form := CreateCustomForm();
  try
    Form.ClientWidth := ScaleX(256);
    Form.ClientHeight := ScaleY(100);
    Form.Caption := '卸载密码';
    Form.BorderIcons := [biSystemMenu];
    Form.BorderStyle := bsDialog;
    Form.Center;

    OKButton := TButton.Create(Form);
    OKButton.Parent := Form;
    OKButton.Width := ScaleX(75);
    OKButton.Height := ScaleY(23);
    OKButton.Left := Form.ClientWidth - ScaleX(75 + 6 + 75 + 50);
    OKButton.Top := Form.ClientHeight - ScaleY(23 + 10);
    OKButton.Caption := '确定';
    OKButton.ModalResult := mrOk;
    OKButton.Default := true;

    CancelButton := TButton.Create(Form);
    CancelButton.Parent := Form;
    CancelButton.Width := ScaleX(75);
    CancelButton.Height := ScaleY(23);
    CancelButton.Left := Form.ClientWidth - ScaleX(75 + 50);
    CancelButton.Top := Form.ClientHeight - ScaleY(23 + 10);
    CancelButton.Caption := '取消';
    CancelButton.ModalResult := mrCancel;
    CancelButton.Cancel := True;

    PwdEdit := TPasswordEdit.Create(Form);
    PwdEdit.Parent := Form;
    PwdEdit.Width := ScaleX(210);
    PwdEdit.Height := ScaleY(23);
    PwdEdit.Left := ScaleX(23);
    PwdEdit.Top := ScaleY(23);

    Form.ActiveControl := PwdEdit;

    if Form.ShowModal() = mrOk then
    begin
      Result := PwdEdit.Text = 'removeme';
      if not Result then
            MsgBox('密码错误:禁止卸载。', mbInformation, MB_OK);
    end;
  finally
    Form.Free();
  end;
end;

以上就是大眼仔旭为您提供的 Inno Setup 安装程序在卸载时增加卸载密码解决方案,复制以上代码到 Inno Setup 脚本中修改相关代码保存即可。

声明:大眼仔旭 | 本文采用知识共享署名 4.0 国际许可协议[BY-NC-SA]进行授权
文章名称:《为您的 Inno Setup 安装程序在卸载时增加卸载密码解决方案
文章固定链接:http://www.dayanzai.me/inno-setup-uninstall.html
本站资源仅供个人学习交流,请于下载后 24 小时内删除,不允许用于商业用途,否则法律问题自行承担。
转载声明
全部评论: (0条)
^_^ 暂无评论!

发表评论

返回顶部