จะเพิ่มฟอร์มในตัวติดตั้ง innosetup ยังไงคะ
Moderator: mindphp, ผู้ดูแลกระดาน
-
- PHP VIP Members
- โพสต์: 2486
- ลงทะเบียนเมื่อ: 19/04/2021 9:57 am
จะเพิ่มฟอร์มในตัวติดตั้ง innosetup ยังไงคะ
ต้องการเพิ่มฟอร์มกรอก url ข้างล่างช่องที่ให้กรอกตำแหน่งที่จะติดตั้ง ของตัว inno setup จะต้องเขียนสคริปต์ยังไงไงคะ
- mindphp
- ผู้ดูแลระบบ MindPHP
- โพสต์: 41384
- ลงทะเบียนเมื่อ: 22/09/2008 6:18 pm
- ติดต่อ:
Re: จะเพิ่มฟอร์มในตัวติดตั้ง innosetup ยังไงคะ
ลงตัวอย่าง โค้ดของหน้านี้ หน่อยครับ
ติดตาม VDO: http://www.youtube.com/c/MindphpVideoman
ติดตาม FB: https://www.facebook.com/pages/MindphpC ... 9517401606
หมวดแชร์ความรู้: https://www.mindphp.com/forums/viewforum.php?f=29
รับอบรม และพัฒนาระบบ: https://www.mindphp.com/forums/viewtopic.php?f=6&t=2042
ติดตาม FB: https://www.facebook.com/pages/MindphpC ... 9517401606
หมวดแชร์ความรู้: https://www.mindphp.com/forums/viewforum.php?f=29
รับอบรม และพัฒนาระบบ: https://www.mindphp.com/forums/viewtopic.php?f=6&t=2042
-
- PHP VIP Members
- โพสต์: 2486
- ลงทะเบียนเมื่อ: 19/04/2021 9:57 am
Re: จะเพิ่มฟอร์มในตัวติดตั้ง innosetup ยังไงคะ
สร้างได้เเล้วค่ะ โดยการเพิ่มโค้ดนี้ลงไปในไฟล์สคริปต์ของ inno setup ซึ่งจะเป็นการเพิ่มหน้าอีกหน้าหนึ่ง ที่ให้กรอก url ค่ะ
จะได้หน้าตาประมาณนี้ค่ะ
โค้ด: เลือกทั้งหมด
var
lblUrl: TLabel;
txtUrl: TEdit;
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,
'URL Website',
'Enter URL to Open Website'
);
{ lblUrl }
lblUrl := TLabel.Create(Page);
with lblUrl do
begin
Parent := Page.Surface;
Left := ScaleX(24);
Top := ScaleY(24);
Width := ScaleX(35);
Height := ScaleY(13);
Caption := 'URL';
end;
{ txtUrl }
txtUrl := TEdit.Create(Page);
with txtUrl do
begin
Parent := Page.Surface;
Left := ScaleX(120);
Top := ScaleY(16);
Width := ScaleX(185);
Height := ScaleY(21);
TabOrder := 0;
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;
ผู้ใช้งานขณะนี้
สมาชิกกำลังดูบอร์ดนี้: ไม่มีสมาชิกใหม่ และบุคลทั่วไป 107