จะเพิ่มฟอร์มในตัวติดตั้ง innosetup ยังไงคะ

สอบถามเรื่องทั่วไป กับ การใช้คอมพิวเตอร์โดยทั่วไป แนะนำข่าวสารไวรัสคอม เทคนิคเล็กน้อยๆ กับ การใช้ คอมพิวเตอร์ ให้มีประสิทธิภาพมากที่สุด ฝากคำถามไว้ได้นะค่ะ

Moderator: mindphp, ผู้ดูแลกระดาน

norisa_dl
PHP VIP Members
PHP VIP Members
โพสต์: 2486
ลงทะเบียนเมื่อ: 19/04/2021 9:57 am

จะเพิ่มฟอร์มในตัวติดตั้ง innosetup ยังไงคะ

โพสต์ที่ยังไม่ได้อ่าน โดย norisa_dl »

ต้องการเพิ่มฟอร์มกรอก url ข้างล่างช่องที่ให้กรอกตำแหน่งที่จะติดตั้ง ของตัว inno setup จะต้องเขียนสคริปต์ยังไงไงคะ
ask1.PNG
ask1.PNG (26.58 KiB) Viewed 1240 times
ภาพประจำตัวสมาชิก
mindphp
ผู้ดูแลระบบ MindPHP
ผู้ดูแลระบบ MindPHP
โพสต์: 41129
ลงทะเบียนเมื่อ: 22/09/2008 6:18 pm
ติดต่อ:

Re: จะเพิ่มฟอร์มในตัวติดตั้ง innosetup ยังไงคะ

โพสต์ที่ยังไม่ได้อ่าน โดย mindphp »

ลงตัวอย่าง โค้ดของหน้านี้ หน่อยครับ
ติดตาม 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
norisa_dl
PHP VIP Members
PHP VIP Members
โพสต์: 2486
ลงทะเบียนเมื่อ: 19/04/2021 9:57 am

Re: จะเพิ่มฟอร์มในตัวติดตั้ง innosetup ยังไงคะ

โพสต์ที่ยังไม่ได้อ่าน โดย norisa_dl »

สร้างได้เเล้วค่ะ โดยการเพิ่มโค้ดนี้ลงไปในไฟล์สคริปต์ของ 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;
จะได้หน้าตาประมาณนี้ค่ะ
form.PNG
form.PNG (19.2 KiB) Viewed 1229 times
ตอบกลับโพส

ผู้ใช้งานขณะนี้

สมาชิกกำลังดูบอร์ดนี้: ไม่มีสมาชิกใหม่ และบุคลทั่วไป 44