تسجيل الدخول

مشاهدة النسخة كاملة : مكتبة الاكواد للدلفي


BONOI
2008-06-10, 10:21
http://img401.imageshack.us/img401/7517/11ve6.gif
http://www.sh11sh.com/sh11sh1/star1.gif

من خلال هذا الموضوع اردت جمع اكبر عدد ممكن من الاكواد للدلفي لكن الموضوع لايزدهر الا بالتعاون فلمن يستطيع تزويدنا باي كود يتفضل وسابدا انا:

-1--تغيير عرض الشاشة في الويندوز من دقة الى 800/600 تلقائيا عند بدأء تشغيل الفورم

procedure TForm1.FormActivate(Sender: TObject);
var
mode:TDeviceMode;
i:integer;
begin
mode.dmSize := sizeof (MODE);
mode.dmPelsWidth := 800;
mode.dmPelsHeight:= 600;
mode.dmBitsPerPel := 16;
mode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL;
i := ChangeDisplaySettings(mode, CDS_TEST);
if i=DISP_CHANGE_SUCCESSFUL then ChangeDisplaySettings(mode, 1)
end;

لعمل فورم شفاف
كود
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.AlphaBlend := true;
Form1.AlphaBlendValue := 0;
end;

للبحث في الطابل داتة Table
البحث المتطابق للكلمة وليس حرف من الكلمة

كود
If Table1.Locate('Pname',Edit1.**** , [locaseinsensitive,lopartialkey]) Then
Showmessage(' The record is found ') Else
Showmessage ( ' There is no match , Try Another Value');

1-كود اطفاء الجهاز:

اضف **** llapi)تحت القسم uses و ادرج زر عادي و اكتب التالي في حدث الضغط على الزر
كود:
ExitWindowsEx(EWX_FORCEIFHUNG or ewx_force,0) ;

2-كود اعادة التشغيل :
اضف ****lapi تحت القسم uses و ادرج زر عادي و اكتب التالي في حدث الضغط على الزر
كود:
ExitWindowsEx(EWX_FORCE or ewx_force,0);
او
كود:
ExitWindows(EW_RESTARTWINDOWS, 0 );

3-كود لفتح و غلق مشغل الاسطوانات الليزرية:
اضف MMSystem تحت القسم uses و ادرج زر عادي و اكتب التالي في حدث الضغط على الزر

للفتح:
كود:
mciSendString('Set cdaudio door open wait', nil, 0, 0);
للغلق:
كود:
mciSendString('Set cdaudio door closed wait', nil, 0, 0);

***********************
لاستدعاء أصوات يمكن استخدام الدالة APIPLAYSOUND و ذلك بوضع العبارة "Mmsystem" في الفئة uses
ثم جعل الأكواد التالية في محرر كود أداة معينة و لتكن الأداة button على سبيل المثال.
Playsound (' recycle.wav',0,snd_filename);
او لفهم الكود جيدا
Playsound (''هنا اسم ملف الصوت,0,snd_filename);
ملفات الاصوات يجب ان تكون wav
لقراءة الاكواد جيدا قم بنسخها في ملف نصي واجعل الكتابة من اليسار الى اليمين
قبل وضع اي كود تاكد من فعاليته او على الاقل بين ان كان الكود مجرب او لا

http://www.sh11sh.com/sh11sh1/star1.gif
http://i94.photobucket.com/albums/l92/aliaasam/t7yati.gif

djally
2008-06-14, 18:19
شكرا اخي
لكن عليك تنظيم الكود

hichemsamia
2008-06-19, 14:43
شكرا شكرا شكرا جزيلا جزيلا جزيلا

BONOI
2008-06-19, 18:57
العفو..بارك الله فيكم

zozosoft
2008-07-13, 09:29
مشكور، بارك الله فيك

BONOI
2008-07-13, 18:59
العفو.. وشكرا على المرور

zozosoft
2008-07-14, 15:07
مشكور merci

BONOI
2008-07-14, 17:00
العفو وبارك الله فيك

Nouh200/
2008-08-04, 14:45
مشكـــــــور كثيرا
بارك الله فيك

BONOI
2008-08-05, 19:14
العفو وبارك الله فيك

hichemsamia
2008-08-05, 21:08
merrrrrrrrrrrciiiiiiiiiiiiiiiiiiiiiii merci merci merci

BONOI
2008-08-07, 14:42
العفو وشكرا على المرور

زهراء الشرق
2008-08-15, 06:52
مشكور بارك الله فيك

BONOI
2008-08-16, 22:31
وفيك بارك الاخت شكرا على المرور

محمد0979
2008-08-18, 21:26
جزاك الله خيرا أخي

محمد0979
2008-08-18, 21:29
أريد بعض برامج الدالفي الجاهزة في قواعد البيانات من فضلكم
شـــــــــــــــــــــــكرا

Yassine_Dz
2008-08-21, 16:49
شكرا جزيلا على المجموعة

BONOI
2008-08-25, 12:08
شكرا على المرور
http://img267.imageshack.us/img267/2308/ndeuzyty12zxym3oidztwu2.gif

امير الجود
2008-10-19, 01:37
مشكـــــــور و بـــارك الله فيـــــــــــــــك

BONOI
2008-10-30, 23:52
الفو وفيك بارك
http://img293.imageshack.us/img293/3365/all108nd3iw5.gif

فاتنة الجزائر
2008-11-14, 16:04
شكراااا جزيلا على مجهوودك الطيب

BONOI
2008-11-21, 14:22
العفو وشكرا على المرور