بعد الانتهاء من تطوير برنامج تطبيقي، تحتاج أيضًا إلى إنشاء برنامج تثبيت قياسي للبرنامج، وهذه هي الخطوة الأخيرة في تصميم البرنامج، وهي أيضًا خطوة مهمة جدًا، لأن تشغيل برنامج التثبيت غالبًا ما يكون هو الأول الشيء الذي يفعله المستخدمون خطوة العملية.
قدمت العديد من المقالات الصحفية والدورية العديد من الطرق حول كيفية استخدام installshield والأدوات والبرامج الأخرى لإنشاء برامج التثبيت. يمكن لهذه الطريقة إنشاء وضع تثبيت أكثر شيوعًا بسرعة، ولكن هناك بعض أوجه القصور في هذه الطريقة، على سبيل المثال، برنامج التثبيت طويل نسبيًا بشكل عام؛ غير قادر على التحكم بمرونة في طرق واختصارات بدء التشغيل. في الواقع، العديد من خطوات تشغيل برنامج التثبيت ثابتة نسبيًا، ويمكننا كتابة برنامج التثبيت بأنفسنا. فيما يلي سوف نقدم بالتفصيل كيفية استخدام DELPHI لكتابة برنامج تثبيت بخصائصه البرمجية الخاصة.
تم تقديم العديد من المبادئ التي يجب أن يحققها برنامج التثبيت، مثل التكوين لمرة واحدة وما إلى ذلك، في العديد من المقالات في المجلات ذات الصلة، لذلك لن أكررها هنا. نقدم هنا بشكل أساسي عدة عمليات رئيسية في كتابة برنامج التثبيت:
1. قم بتحويل البرامج المطلوب تثبيتها إلى ملفات موارد
الخطوة 1: اكتب ملف البرنامج النصي لمورد myres.rc، والذي يمكن كتابته في برنامج "المفكرة".
MYDBSRC mydbsrcfile c:esdemomynbdb.mdb
MYDBJET mydbjetfile c:esdemomdac_typ.exe
MYDBAPP mydbappfile c:esdemoTnbdemo.exe
7001 أيقونة ج: esdemosetup.ico
الخطوة 2: استخدم BRCC32 لتجميع وإنشاء ملف المورد myres.res.
brcc32.exe myres.rc
2. اكتب رمز برنامج التثبيت
الخطوة 1: أضف عبارة {$R mymyres.RES} إلى ملف setup.dPR بحيث يتم تضمين ملف المورد عند تجميع الملف.
الخطوة 2: كتابة واجهة خلفية برنامج التثبيت.
// يتم تحقيق تأثير التدرج اللوني للواجهة من خلال طلاء الكتل المستطيلة المجاورة بفرشاة متدرجة.
// من الممكن أيضًا تنفيذ واجهات تثبيت أخرى ذات تأثيرات خاصة.
فار i,j:Integer;
دكت:تريكت؛
يبدأ
form1.WindowState:=wsMaximized;
j:=form1.width;
// احصل على ارتفاع النموذج
لأني:=0 إلى 255 افعل
// قم بتعيين قيمة اللون في RGB () هنا
يبدأ
Canvas.Brush.Color:=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,'نظام إدارة المناهج الدراسية بجامعة نينغبو v1.0');
// ملء اللون
نهاية؛
نهاية؛
الخطوة 3: إنشاء دليل عمل البرنامج الرئيسي
// تعيين بيئة الدليل وملفات التكوين
إذا لم يكن DirectoryExists(EdtDir.Text) ثم
// إذا كان messageBox(getfocus,'هذا الدليل غير موجود، فهل تريد إنشائه؟','Ask',1) = idOK إذن
يحاول
ForceDirectories(EdtDir.Text);