หลังจากที่คุณพัฒนาแอพพลิเคชั่นซอฟต์แวร์เสร็จแล้ว คุณจะต้องสร้างโปรแกรมการติดตั้งที่ได้มาตรฐานสำหรับซอฟต์แวร์ นี่เป็นขั้นตอนสุดท้ายในการออกแบบโปรแกรม และเป็นขั้นตอนที่สำคัญมากเช่นกัน เนื่องจากการรันโปรแกรมติดตั้งมักจะเป็นขั้นตอนแรก สิ่งที่ผู้ใช้ทำ
บทความในหนังสือพิมพ์และวารสารจำนวนมากได้แนะนำวิธีการใช้ installshield และเครื่องมือและซอฟต์แวร์อื่น ๆ เพื่อสร้างโปรแกรมการติดตั้ง วิธีนี้สามารถสร้างโหมดการติดตั้งทั่วไปได้อย่างรวดเร็ว แต่มีข้อบกพร่องบางประการในวิธีนี้ ตัวอย่างเช่น โปรแกรมการติดตั้ง โดยทั่วไปจะค่อนข้างยาว รูปแบบเดียว ไม่สามารถควบคุมวิธีการเริ่มต้นและทางลัดได้อย่างยืดหยุ่น ที่จริงแล้ว ขั้นตอนการทำงานหลายขั้นตอนของโปรแกรมการติดตั้งนั้นค่อนข้างคงที่ และเราสามารถเขียนโปรแกรมการติดตั้งได้ด้วยตัวเอง ต่อไปนี้จะแนะนำโดยละเอียดเกี่ยวกับวิธีใช้ DELPHI เพื่อเขียนโปรแกรมการติดตั้งที่มีคุณสมบัติซอฟต์แวร์ของตัวเอง
หลักการหลายประการที่โปรแกรมการติดตั้งต้องบรรลุ เช่น การกำหนดค่าแบบครั้งเดียว ฯลฯ ได้รับการแนะนำในบทความหลายฉบับในนิตยสารที่เกี่ยวข้อง ดังนั้นฉันจะไม่ทำซ้ำที่นี่ ที่นี่เราจะแนะนำกระบวนการหลักหลายประการในการเขียนโปรแกรมการติดตั้งเป็นหลัก:
1.จัดทำโปรแกรมที่จำเป็นต้องติดตั้งลงในไฟล์ทรัพยากร
ขั้นตอนที่ 1: เขียนไฟล์สคริปต์ทรัพยากร myres.rc ซึ่งสามารถเขียนใน Notepad
MYDBSRC mydbsrcfile c:esdemomynbdb.mdb
MYDBJET mydbjetfile c:esdemomdac_typ.exe
MYDBAPP mydbappfile c:esdemoTnbdemo.exe
7001 ไอคอน c: esdemosetup.ico
ขั้นตอนที่ 2: ใช้ BRCC32 เพื่อคอมไพล์และสร้างไฟล์ทรัพยากร myres.res
brcc32.exe myres.rc
2.เขียนโค้ดโปรแกรมการติดตั้ง
ขั้นตอนที่ 1: เพิ่มคำสั่ง {$R mymyres.RES} ลงในไฟล์ setup.dPR เพื่อให้รวมไฟล์ทรัพยากรไว้เมื่อคอมไพล์ไฟล์
ขั้นตอนที่ 2: เขียนอินเทอร์เฟซพื้นหลังโปรแกรมการติดตั้ง
//เอฟเฟกต์การไล่ระดับสีของอินเทอร์เฟซทำได้โดยการวาดบล็อกสี่เหลี่ยมที่อยู่ติดกันด้วยแปรงไล่ระดับสี
// นอกจากนี้ยังเป็นไปได้ที่จะใช้อินเทอร์เฟซการติดตั้งอื่น ๆ ที่มีเอฟเฟกต์พิเศษ
var i,j:จำนวนเต็ม;
Dct:TRect;
เริ่ม
form1.WindowState:=wsขยายใหญ่สุด;
เจ:=form1.width;
//รับความสูงของแบบฟอร์ม
สำหรับ i:=0 ถึง 255 ทำ
//ตั้งค่าสีเป็น RGB() ที่นี่
เริ่ม
ผ้าใบ แปรง สี:=RGB(0,0,255-i);
//สีแปรงสำหรับสี่เหลี่ยมแต่ละอันที่วาด (ซ้าย, บน, ขวา, ล่าง)
//Dct:=Rect(i*2,0,(i+1)*2,j);
Dct:=Rect(0,i*2,j,(i+1)*3);
//พื้นที่สี่เหลี่ยมที่ทาสีแต่ละครั้ง
Canvas.FillRect(Dct);
Form1.Canvas.TextRect (Dct, 30,40, 'ระบบการจัดการบทเรียนของมหาวิทยาลัย Ningbo v1.0');
//เติมสี
จบ;
จบ;
ขั้นตอนที่ 3: สร้างไดเร็กทอรีการทำงานของโปรแกรมหลัก
//ตั้งค่าสภาพแวดล้อมไดเร็กทอรีและไฟล์คอนฟิกูเรชัน
ถ้าไม่ใช่ DirectoryExists(EdtDir.Text) แล้ว
// ถ้า MessageBox(getfocus,'This directory ไม่มีอยู่ คุณต้องการสร้างมันขึ้นมาหรือไม่?','Ask',1) = idOK แล้ว
พยายาม
ForceDirectories (EdtDir.Text);