[BONOI]

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

-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

لقراءة الاكواد جيدا قم بنسخها في ملف نصي واجعل الكتابة من اليسار الى اليمين
قبل وضع اي كود تاكد من فعاليته او على الاقل بين ان كان الكود مجرب او لا