مقدمة الى الريجستري في دلفي

بالانتظار

ليس من المنطقي كتابة معلومات البرنامج بواسطة ملف txt عادي وهذا ما يفعله الكثير من المبرمجين ولا اعلم لماذا لا يبحث هؤلاء المبرمجين عن طريقة مثلى غير الملفات النصية لتخزين بياناتهم.

وأنا موقن بأن الريجستري هو أفضل بكثير من الملفات النصية لتخزين البيانات!

على كل حال فلست بصدد نقاش هؤلاء.

سأشرح هنا كيف نخبر دلفي بأننا نريد استخدام الريجستري في برنامجنا.

الميزة العظمى في دلفي هي أن نشعرها بأننا نريد استخدام عنصر ما مثلا لاستخدام الريجستري يجب أن نخبر دلفي بأننا نريد استخدام الريجستري وهكذا بالنسبة للأعمال البقية.

وبهذه الطرق نكون قد خففنا من ثقل البرنامج.

أما الآن ... لاخبار دلفي اننا نريد استخدام الريجستري في برنامجنا اتبع الطرق التالية:

1.افتح مشروع جديدمن خلال New<Application

2.انقر نقرا مزودجا على النافذة (Form)لإظهار مستكشف الكود (Code explorer)

3.أكتب التعليمة Registry في القسم uses.

الآن أخبرنا دلفي أننا نريد في برنامجنا لننتقل الآن الى الخطوة التالية.

كما ذكرنا فإن المفاتيح أساس الريجستري وتنقسم المفاتيح الى قسمين:

* مفاتيح أساسية: وقد مثلنا لها بـ HKEY_CLASSIC_ROOT وقلنا أن المفتاح الأساسي المذكور يكون فيه جميع لواحق الملفات.

* مفاتيح فرعية: وكما ذكرنا فالمفاتيح الفرعية تتفرع من المفاتيح الرئيسية ويمكن وجود أكثر من مفتاح فرعي لكل مفتاح.

أما الآن نأتي لطريقة فتح مفتاح في الريجستري من خلال بيئة دلفي وبعد أن نفتح المفتاح ونعينه يصبح بامكاننا التعامل مع هذا المفتاح وكتابة قيم بداخلة.

لفتح مفتاح ما نقوم بما يلي:

1.أضف زر Button على النافذة.

2.أنقر نقرا مزدوجا على الزر واكتب الكود التالي(مع ملاحظة عدم كتابة الأرقام وقد كتبتها للتوضيح):

1var
2Reg: TRegistry;
3begin
4Reg:= TRegistry.Create;
5Reg.RootKey:= HKEY_CURRENT_USER;
6try
7Reg.OpenKey('Software\Microsoft',False);
8Except;
9end;
10End;

لنأتي الى شرح هذا الكود بالتفصيل:

* السطر1-2:قمنا بتعريف متغير تحت اسم Reg من نوع TRegistry حيث يصبح بامكاننا الوصول الى الريجستري من خلال هذا المتغير والذي يحتفظ بكل عمليات الريجستري من فنح مفاتيح وكتابة قيم وغيرها.

* السطر4:قمنا في هذا السطر بخلق الريجستري وهي طريقة تستخدم بكثرة مع الكائنات يعني يجب عليك خلق الشيء حتى تستفيد منه

فهنا قمنا بخلق الريجستري وتعيينه ومن ثم استخدامه.

* السطر5:قمنا من خلال هذا السطر بفتح المفتاح الرئيسي الذي نريد استخدامه يمكنك بعد كتابة المتغير بهذا الشكل Reg.RootKey

أن تضغط Ctrl+Space لتحصل على جميع المفاتيح الأساسية اختر واحدا منها واضغط Enter.

* السطر6:استخدمنا فيه بلوك المقابلة مع الاستثناء (Except) أو بعبارة أحرى مع الخطأ الذي يحدث فإن لم تدرج هذه التعليمة فسيحدث خطأ عند تشغيل البرنامج.

* السطر7:قمنا من خلال هذا السطر بفتح المفتاح الفرعي الذي نريد استخدامه يمكنك كتابة المسار بأكمله وكما هو مبين فقد كتبت مسار Software\Microsoft

للوصول الى مفتاح Microsoft يعني مع ملاحظة أن تكتب جميع المسار.

* السطر8-9:نهاية بلوك الاستثناء.

الآن قمنا بفتح المفاتيح والوصول اليها وتبقى طريقة كتابة القيم.

لكتابة قيمة أو قيم نقوم بالخطوات البسيطة التالية مع ملاحظة أنك قد قمت بالخطوات البسيطة السابقة وأتممتها وبكل صحة كما لا يخفى عليك أن تضيف Edit الى النافذة:

1.أضف هذه الجملة بعد السطر رقم 7 مباشرة:

Reg.WriteString('Test',Edit1.text);

تقوم هذه الجملة بتخزين محتويات الـ Edit تحت قيمة باسم Test الآن نفذ البرنامج واضغط على الزر Button وبعد الضغط عليه انتقل الى الريجستري واذهب الى المفتاح المذكور لترى أن كل ما كتبته في الـ Edit قد ظهر تحت قيمة باسم Test فيها جميع محتويات الـ Edit ويمكنك إستخدام الأنواع التالية أيضا:

* WriteString: كتابة قيمة نصية.

* WriteCurrency: لكتابة قيمة كارانسي.

* WriteBinaryData: لكتابة قيم ثنائية Binary.

* WriteBool: لكتابة قيم الـ Boolean وهي تأخذ True و False.

* WriteDate: لكتابة قيم التاريخ.

* WriteDateTime: لكتابة قيم تاريخ ووقت.

* WriteFloat: لكتابة قيم الـ Float.

* WriteInteger: لكتابة قيم Integer (الأعداد الصحيحة).

* WriteExpandString: لكتابة قيم سلسلة موسعة.

* WriteTime: لكتابة الوقت.

يمكنك كتابة هذه القيم لانجاز ما تريد من المهام.

ولرئية الناتج انتقل إلى مسار المفتاح في الريجستري كما هو موضح في الصورة:

يتبع...

موضوع جميل جدا إستمر :D

رغم أن الفترة هي فترة إمتحانات

مشكورين على ردودكم

ikossan كتب:

موضوع جميل جدا إستمر :D

رغم أن الفترة هي فترة إمتحانات

أنا خلصت امتحانات اليوم ;)

هناك سلسلة من الأوامر المتقدمة أشرحها بطريقة مفصلة:

* ()ValueExists: أمر للتحقق من أن هل القيمة الفلانية موجودة ضمن المفتاح أم لا؛مثال:

if Reg.ValueExists(Test) Then
   showmessagw('Found...');
Else
   Showmessage('no Found...')

مع ملاحظة أنك قمت سابقا بفتح المفاتيح المطلوبة لكي تتأكد من وجود القيمة المذكورة.

* ()KeyExists: يستخدم هذا الأمر للتأكد هل أن المفتاح الفلاني موجود أو لا يعني كالأمر السابق إلا أنه يستخدم للمفاتيح وليس للقيم؛مثال:

if Reg.KeyExists('Software') then
   showmessagw('Found...');
Else
   Showmessage('no Found...')

* ()DeletKey: يستخدم هذا الأمر لحذف مفتاح من الريجستري؛مثال:

if Reg.DeletKey('KeyName') Then
   Showmessage('Delet Key');
Else
   Showmessage('Not Delet');

يجب أن تكون حذرا عند استخدامك لهذا الأمر ولا تحذف المفاتيح الضرورية أو التي لا تعرف ما هي إلا أن تتأكد منها.

* ()DeletValue: كالأمر السابق تماما إلا أنه يحذف قيمة بدلا من مفتاح.

* ReadString: إذا أردنا أ، نقرأ قيمة من الريجستري نستخدم هذا الأمر كما في المثال:

Showmessage(Reg.ReadString('Test'))

يقوم هذا المثال بقراءة القيمة Test من الريجستري وإظهارها بواسطةة رسالة ويمكنك استخدام أي كمبوننت آخر لوضع القيمة المقروءة داخلة.

* ()Reg.CreatKey: يستخدم هذا الأمر لإنشاء مفتاح جديد ما عليك سوى كتابة المفتاح وسيتم إنشاءه؛مثال:

Reg.CreatKey('KeyName');

سيتم إنشاء المفتاح KeyName تحت المفتاح المفتوح مسبقا وإذا لم تفتح أي مفتاح مسبقا فسيتم إنشاءه تحت المفتاح الرئيسي.

* ()MoveKey: يستخدم هذا الأمر لنقل أو نسخ مفتاح مع قيمة إلى مكان تحدده أنت؛مثال:

Reg.MoveKey('Ahmed','ali',False);

سيتم نسخ المفتاح Ahmed إلى مفتاح جديد بإسم ali والبارامتر الأخير يؤكد ما إذا أردت حذف المفتاح Ahmed أو لا؛ ضع False لكي لا تحذف؛ ضع True لكي تحذفه.

* ()CurrentPath: يجلب هذا الأمر المفتاح المفتوح حاليا.مثال:

Showmessage(Reg.CurrentPath);

* ()Reg.OpenKeyReadOnly: يستخدم هذا الأمر لفتح مفتاح للقراءة فقط.

* ()RenameValue: يستخدم هذا الأمر لاستبدال اسم قيمة معينة؛مثال:

Reg.RenameValue('Test','myValue');

سوف يستبدل اسم القيمة Test الى myValue .

وهناك أوامر عديدة في الريجستري اكتشفها بنفسك ;)

الى هنا ننتهي من الجزء النظري ونأتي الى الجزء العملي وهو تصميم برنامج يستخدم الريجستري..

انتظروني...

جيد جدا استمر

سوف نبدأ اليوم بنهاية موضوعنا حول الريجستري

لا يخفى عليكم أن للريجستري أوامر خاصة تحسن من أداء الويندوز

وهذه الأوامر تجدونها في مراجع مختلفة عن الريجستري ولكن نادر منها ما هو عربي.

ٍاتسخدم في هذا المثال العملي قيمة باسم BackBitmapShell وهي قيمة خاصة بالريجستري تمكنك

من إنشاء صور ووضعها كخلفية لشريط الأدوات في متصفح الإنترنت أو في المجلدات.

أنشأ مشروع جديد

وقم بتصميم الشكل التالي:

ولا تنسى أن تضيف TOpenDialog

وتدرج اللاحقة bmp و gif من خاصية Filter.

البرنامج سيكون بالشكل التالي: يضغط المستخدم على زر استعراض ويختار الصورة التي يريدها ثم يضغط على زر تعيين لتعيينها كخلفية لشريط الأدوات

وإذا أراد المستخدم أن يلغي الصورة فيضغط على زر مسح.

اتبع الخطوات التالية لبناء البرنامج:

1.أبدأ تطبيقا جديدا.

2.أدرج التعليمة Registry في قسم uses كما وضحت مسبقا.

3.أكتب الكود التالي في حدث OnCreat للفورم:

procedure TForm1.FormCreate(Sender: TObject);
var
RegEx: TRegistry;
begin
RegEx:= TRegistry.Create;
RegEx.RootKey:= HKEY_CURRENT_USER;
try
RegEx.OpenKey('Software\Microsoft\internet Explorer\ToolBar',True);
Edit1.Text:= RegEx.ReadString('BackBitmapShell');
except
RegEx.Free;
end;
end;

أكتب الكود التالي في حدث OnClick للزر تعيين:

var
Reg: TRegistry;
begin
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_CURRENT_USER;
try
Reg.OpenKey('Software\Microsoft\internet Explorer\ToolBar',True);
Reg.WriteString('BackBitmapShell',Edit1.Text);
ShowMessage('تم تعيين الخلفية بنجاح');
Except
Reg.Free;
end;
end;

اكتب الكود التالي في حدث OnClick للزر مسح:

var
Reg: TRegistry;
begin
Edit1.Text:= '';
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_CURRENT_USER;
try
Reg.OpenKey('Software\Microsoft\internet Explorer\ToolBar',True);
if MessageDlg('هل تريد مسح الخلفية؟',mtinformation , [mbYes,mbNo],0) =
mrYes then
begin
if Reg.DeleteValue('BackBitmapShell') then
begin
ShowMessage('تم مسح الخلفية بنجاح');
end else begin
ShowMessage('!هناك خطأ في المسح');
End;
End;
Except
Reg.Free;
End;
end;

اكتب الكود التالي في الزر استعراض:

begin
IF OpenDialog1.Execute Then
Edit1.Text:= OpenDialog1.FileName;
end;

الآن اضغط F9 وجرب البرنامج .

الآن والحمدلله انتهينا من البرنامج بكل سهولة.

والبرنامج مرفق تحت.

أرجو أنكم تكونون قد استفدتوا وأي شي مو مفهوم أنا حاضر.

Background.rar