شرح (شرح) كيف تثبت برامجك عند الغير Delphi أو C++Builder

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم

(شرح) كيف تثبت برامجك عند الغير Delphi أو C++Builder

النسخة الانجليزية من
Borland C++Builder 5
أو
Borland Delphi 5

ملاحظة بنسة للاصدار 6 و 7 اختلفت طريقة
تشغيل
Express for C++Builder 5 أو Express for Delphi 5
اختيار مشروع جديد ضغط فوق موفق
Create a new Setup Project ==> OK
كتابة اسم المشروع
Project Name ==> forumalgerie
تحديد مكان تواجد ملفات قواعد البيانات التابعة للمشروع
Project Path
يكون المسار هكذا مثلا
Dirctory ==> C:\delph\forumalgerie.iwz
نقر فوق انشاء
Create
ظهور النافذة التالية
Setup Checklist
Set the Visual Design
نقر فوق العبارة التالية
Application Information ==> Click
ظهور مربع الحوار فتح تحديد الملف التنفيذي تابع للمشروع
Application Executable: ==> Browse... ==> Project1.exe

----/////----
Application Name ==> forumalgerie
Default Destination Dirctory: ==> C:\delph ==> OK
نقر فوق العبارة التالية
Features ==> Click
تمكين الخيار تالي من اجل الغاء تثبيت
Automatic Uninstaller ==> true ==> OK
نقر فوق العبارة التالية
General Options ==> Click
تمكين الخيار تالي
BDE Database Component Packages ==> true
تمكين الخيار تالي اذا تم استعمال اوامر المشار اليها في العبارة التالية
SQL - Links
تمكين الخيار تالي
BDE (Borland Database Engine) ==> true
ظهور النافذة التالية نقر فوق جديد
BDE Aliases ==> New
كتابة اسم اليا أو الاسم المستعار وهو الاسم الذي انشأته عندما انشأت المشروع
Alias Name ==> Algerie ==> OK ==> Next
تمكين الخيار تالي
Save CFG file for both 16 and 32 bit applications ==> true ==> Next
كتابة مسار اليا كما هو موضح
Path ==> C:\delph
اختيار نوع قاعدة البيانات التي انشأتها عندما انشأت ملفات قاعدة البيانات مثلا هنا بارادوكس نقر فوق انهاء ثم فوق موفق
Type ==> Paradox ==> Next ==> Terminer ==> OK
نقر فوق العبارة التالية ثم نقر فوق موفق
Advanced Options ==> OK
نقر فوق العبارة التالية
Groups and files
ظهور النافذة التالية
تحديد Program files وانقر فوق Insert Files ظهور مربع الحوار فتح تحديد ملفات قاعدة البيانات وملفات دلل dll
أي ملفات أخرى تحتاجها لمشروعك لاتحدد ملفات الكود سورس تابعة سي ++ بولدر
Program files ==> select ==> Insert Files ==> Click
تم تحديد ملفين فقط في مثلنا هذا
select ==> db001.db db001.px ==> Open
بنسة الى مجموعة جديدة أو مجلد جديد اذا كان مشروعك يحتوي على مجلدات فرعية فيجب نقر فوق
New Group..
والا لا
==> Ok
نقر فوق العبارة التالية ثم نقر فوق موفق
Dialog Box ==> Click ==> Ok
نقر فوق العبارة التالية
Disk Builder ==> Click
تحديد CD-ROM وانقر فوق Build
Disk Size ==> CD-ROM ==> Build
عندما تنتهي العملية انقر فوق اغلاق
Close
-----------
تشغيل هذا البرنامج BDE Administrator وحذف اليا Algerie بتحديدها ثم حذفها قبل بدء عملية تثبيت
Algerie ==> Object ==> Delete ==> OK
تغيير المسار من C:\delph الى C:\delph11 قبل بدء عملية تثبيت
ذهاب الى المسار تالي وبدء عملية التثبيت
C:\delph\forumalgerie1\650MB\DISK1\setup.exe

كيفية انشاء اليا
تشغيل هذا البرنامج BDE Administrator
ظهور النافذة التالية
BDE Administrator
من القائمة Object انقر New ثم انقر فوق موفق ok
اكتب اسم اليا alias وليكن Algerie مثلا
من نوع بارادوكس حسبة هذا المثال
default driver
تحديد مكان حفظ اليا
path ==> C:\delph
Object ==> Save as ..
اغلاق البرنامج
بنسبة لدلفي نفس شيء

[بلخير92]

ممكن روابط تحميل النسخة مع التفعيل

[homs]

مشكووووووور على مجهودك

[طيباوي ابو علي1]

المشاركة الأصلية كتبت بواسطة homs

مشكووووووور على مجهودك

مشكور على الرد
جزاك الله خيرا

[mahmoudb69]

جزاك الله خيرا

[طيباوي ابو علي1]

المشاركة الأصلية كتبت بواسطة mahmoudb69

جزاك الله خيرا

مشكور على الرد
و بـــــــــــــــــــــــــــــــارك الله فــــــــــيــك

[zahrafleur]

سلام عليكم مشكورة ممكن مساعدتي في برنامج حل معادلة من الدرجة الثانية بلغة دلفي ضروري

[طيباوي ابو علي1]

المشاركة الأصلية كتبت بواسطة zahrafleur

سلام عليكم مشكورة ممكن مساعدتي في برنامج حل معادلة من الدرجة الثانية بلغة دلفي ضروري

حسام معادلة من الدرجة الثانية

ضع على الفورم 6
TLabel
ضع على الفورم 3
TButton
ضع على الفورم 6
TEdit

procedure TForm1.Button1Click(Sender: TObject); // djelfa
var a,b,c : real; // djelfa
Delta,x1,x2 : real; // djelfa
begin
  a := StrToCurr(Edit1.Text); // djelfa
  b := StrToCurr(Edit2.Text); // djelfa
  c := StrToCurr(Edit3.Text); // djelfa
  Delta := b*b - 4*a*c; // djelfa
  if Delta < 0 then
    Edit4.Text := 'ليس لها حل'
  else
  begin
   x1 := (-b-sqrt(Delta))/(2*a); // djelfa
   x2 := (-b+sqrt(Delta))/(2*a); // djelfa
   Edit4.Text := CurrToStr(Delta); // djelfa
   Edit5.Text := CurrToStr(x1); // djelfa
   Edit6.Text := CurrToStr(x2); // djelfa
 end; // djelfa

end; // djelfa

[طيباوي ابو علي1]

حسام معادلة من الدرجة الثانية

ضع على الفورم 6
TLabel
ضع على الفورم 3
TButton
ضع على الفورم 6
TEdit

procedure TForm1.Button1Click(Sender: TObject); // djelfa
var a,b,c : real; // djelfa
Delta,x1,x2 : real; // djelfa
begin
  a := StrToFloat(Edit1.Text); // djelfa
  b := StrToFloat(Edit2.Text); // djelfa
  c := StrToFloat(Edit3.Text); // djelfa
  Delta := b*b - 4*a*c; // djelfa
  if Delta < 0 then
    Edit4.Text := 'ليس لها حل'
  else
  begin
   x1 := (-b-sqrt(Delta))/(2*a); // djelfa
   x2 := (-b+sqrt(Delta))/(2*a); // djelfa
   Edit4.Text := FloatToStr(Delta); // djelfa
   Edit5.Text := FloatToStr(x1); // djelfa
   Edit6.Text := FloatToStr(x2); // djelfa
 end; // djelfa

end; // djelfa
]

[طيباوي ابو علي1]

بارك الله فيـــــــــــــــــــــكم

[Mя. AMiNE]

جزاك الله خيرا

[طيباوي ابو علي1]

جزاك الله خيرا

[Alladin1]

شكرا لك اخي

[younesok]

شكرا جزيلا أخي بالتوفيق

[oussamaAzh]

مشكووور اخي