如何在基於Inno安裝程序的安裝程序中創建自己的表單或頁面？

Question

我是創建安裝程序的新手。我需要創建一個表單與3個文本框：

1. 域
2. 用戶名
3. 用戶密碼

，然後將它們保存到註冊表中。我已經知道如何將數據保存到註冊表中。

Answer 1

Inno有一個靈活的對話框/頁面引擎，它允許您在嚮導流程中創建自定義頁面。請參閱隨Inno安裝附帶的CodeDlg.iss example以瞭解如何執行此操作的一個很好的示例。

Answer 2

[Code] 
var 
lblDomain: TLabel; 
lblUserName: TLabel; 
lblPassword: TLabel; 
txtDomain: TEdit; 
txtUserName: TEdit; 
txtUserPassword: TPasswordEdit; 

procedure frmDomainReg_Activate(Page: TWizardPage); 
begin 
end; 

function frmDomainReg_ShouldSkipPage(Page: TWizardPage): Boolean; 
begin 
Result := False; 
end; 

function frmDomainReg_BackButtonClick(Page: TWizardPage): Boolean; 
begin 
Result := True; 
end; 

function frmDomainReg_NextButtonClick(Page: TWizardPage): Boolean; 
begin 
Result := True; 
end; 

procedure frmDomainReg_CancelButtonClick(Page: TWizardPage; var Cancel, Confirm: Boolean); 
begin 
end; 

function frmDomainReg_CreatePage(PreviousPageId: Integer): Integer; 
var 
Page: TWizardPage; 
begin 
Page := CreateCustomPage(
PreviousPageId, 
'Domain Registration', 
'Enter Domain Registration Data' 
); 

{ lblDomain } 
lblDomain := TLabel.Create(Page); 
with lblDomain do 
begin 
Parent := Page.Surface; 
Left := ScaleX(24); 
Top := ScaleY(24); 
Width := ScaleX(35); 
Height := ScaleY(13); 
Caption := 'Domain'; 
end; 

{ lblUserName } 
lblUserName := TLabel.Create(Page); 
with lblUserName do 
begin 
Parent := Page.Surface; 
Left := ScaleX(24); 
Top := ScaleY(56); 
Width := ScaleX(52); 
Height := ScaleY(13); 
Caption := 'User Name'; 
end; 

{ lblPassword } 
lblPassword := TLabel.Create(Page); 
with lblPassword do 
begin 
Parent := Page.Surface; 
Left := ScaleX(24); 
Top := ScaleY(88); 
Width := ScaleX(46); 
Height := ScaleY(13); 
Caption := 'Password'; 
end; 

{ txtDomain } 
txtDomain := TEdit.Create(Page); 
with txtDomain do 
begin 
Parent := Page.Surface; 
Left := ScaleX(120); 
Top := ScaleY(16); 
Width := ScaleX(185); 
Height := ScaleY(21); 
TabOrder := 0; 
end; 

{ txtUserName } 
txtUserName := TEdit.Create(Page); 
with txtUserName do 
begin 
Parent := Page.Surface; 
Left := ScaleX(120); 
Top := ScaleY(48); 
Width := ScaleX(185); 
Height := ScaleY(21); 
TabOrder := 1; 
end; 

{ txtUserPassword } 
txtUserPassword := TPasswordEdit.Create(Page); 
with txtUserPassword do 
begin 
Parent := Page.Surface; 
Left := ScaleX(120); 
Top := ScaleY(80); 
Width := ScaleX(185); 
Height := ScaleY(21); 
TabOrder := 2; 
end; 


with Page do 
begin 
OnActivate := @frmDomainReg_Activate; 
OnShouldSkipPage := @frmDomainReg_ShouldSkipPage; 
OnBackButtonClick := @frmDomainReg_BackButtonClick; 
OnNextButtonClick := @frmDomainReg_NextButtonClick; 
OnCancelButtonClick := @frmDomainReg_CancelButtonClick; 
end; 

Result := Page.ID; 
end; 

procedure InitializeWizard(); 
begin 
{this page will come after welcome page} 
frmDomainReg_CreatePage(wpWelcome); 
end;