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
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