Inno Setup 验证密码卸载

Share

1. [Setup]
   
2. AppName=UninsPassword
   
3. AppVerName=UninsPassword
   
4. DisableProgramGroupPage=true
   
5. DisableStartupPrompt=true
   
6. DefaultDirName={pf}\UninsPassword
   
7. 
   
8. [Code]
   
9. function AskPassword(): Boolean;
   
10. var
    
11.   Form: TSetupForm;
    
12.   OKButton, CancelButton: TButton;
    
13.   PwdEdit: TPasswordEdit;
    
14. begin
    
15. 
    
16.   Result := false;
    
17.   Form := CreateCustomForm();
    
18.   try
    
19.     Form.ClientWidth := ScaleX(256);
    
20.     Form.ClientHeight := ScaleY(100);
    
21.     Form.Caption := '密码验证';
    
22.     Form.BorderIcons := [biSystemMenu];
    
23.     Form.BorderStyle := bsDialog;
    
24.     Form.Center;
    
25. 
    
26.     OKButton := TButton.Create(Form);
    
27.     OKButton.Parent := Form;
    
28.     OKButton.Width := ScaleX(75);
    
29.     OKButton.Height := ScaleY(23);
    
30.     OKButton.Left := Form.ClientWidth - ScaleX(75 + 6 + 75 + 50);
    
31.     OKButton.Top := Form.ClientHeight - ScaleY(23 + 10);
    
32.     OKButton.Caption := '确定';
    
33.     OKButton.ModalResult := mrOk;
    
34.     OKButton.Default := true;
    
35. 
    
36.     CancelButton := TButton.Create(Form);
    
37.     CancelButton.Parent := Form;
    
38.     CancelButton.Width := ScaleX(75);
    
39.     CancelButton.Height := ScaleY(23);
    
40.     CancelButton.Left := Form.ClientWidth - ScaleX(75 + 50);
    
41.     CancelButton.Top := Form.ClientHeight - ScaleY(23 + 10);
    
42.     CancelButton.Caption := '取消';
    
43.     CancelButton.ModalResult := mrCancel;
    
44.     CancelButton.Cancel := True;
    
45. 
    
46.     PwdEdit := TPasswordEdit.Create(Form);
    
47.     PwdEdit.Parent := Form;
    
48.     PwdEdit.Width := ScaleX(210);
    
49.     PwdEdit.Height := ScaleY(23);
    
50.     PwdEdit.Left := ScaleX(23);
    
51.     PwdEdit.Top := ScaleY(23);
    
52. 
    
53. 
    
54.     Form.ActiveControl := PwdEdit;
    
55. 
    
56.     if Form.ShowModal() = mrOk then
    
57.     begin
    
58.       Result := PwdEdit.Text = 'removeme';
    
59.       if not Result then
    
60.             MsgBox('密码错误', mbInformation, MB_OK);
    
61.     end;
    
62.   finally
    
63.     Form.Free();
    
64.   end;
    
65. end;
    
66. function InitializeUninstall(): Boolean;
    
67. begin
    
68.   Result := AskPassword();
    
69. end;

复制代码