سلام
تستطيع استدعاء مجموعة مهمة من الدوال باستخدام Rundll.exe
و الصيغة العامة له
WinExec(PChar('rundll32 ...'),SW_SHOWNORMAL);
حيت 'rundll32 ... يتم استبداله باحد الدوال التالية .
----------------------------------------------------------
-* تركيب شاشة توقف Install a Screensaver
*الدالة
desk.cpl,InstallScreenSaver
حدد مسار شاشة توقف تم نفد , شاشات التوقف بامتداد *.scr
* الامر بالكامل
WinExec(PChar('rundll32.exe desk.cpl,InstallScreenSaver C:WINNTsystem32ssstars.scr'),SW_SHOWNORMAL);
----------------------------------------------------------
- *تنفيد برنامج البريد وارسال بريد Call the Standard Mail program:
*الدالة
url.dll,MailToProtocolHandler
حدد عنوان البريد الدي تريد ان تراسله
* الامر بالكامل
WinExec(PChar('rundll32.exe url.dll,MailToProtocolHandler info@swissdelphicenter.ch '),SW_SHOWNORMAL);
----------------------------------------------------------
-*نسخ الاقراص Copy Disk:
*الدالة
diskcopy.dll,DiskCopyRunDll
*الامر بالكامل
WinExec(PChar('rundll32.exe diskcopy.dll,DiskCopyRunDll'),SW_SHOWNORMAL);
----------------------------------------------------------
-* تشكيل القرص Format Disk:
*الدالة
shell32.dll,SHFormatDrive
*الامر
WinExec(PChar('rundll32.exe shell32.dll,SHFormatDrive'),SW_SHOWNORMAL);
----------------------------------------------------------
-* طباعة تجربة للطابعة Print a Testpage on a printer
*الدالة
hell32.dll,SHHelpShortcuts_RunDLL PrintTestPage
*الامر
WinExec(PChar('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL
PrintTestPage'),SW_SHOWNORMAL);
----------------------------------------------------------
-* تعريف طابعة جديدة install a printer:
*الدالة
shell32.dll,SHHelpShortcuts_RunDLL AddPrinter
*الامر
WinExec(PChar('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter'),SW_SHOWNORMAL);
----------------------------------------------------------
-* اضافة وازالة البرامج Call Add/Remove Software:
*الدالة
shell32.dll,Control_RunDLL appwiz.cpl
*الامر
WinExec(PChar('rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl'),SW_SHOWNORMAL);
----------------------------------------------------------
-* خصائص المودم Show Properties for Modems:
*الدالة
shell32.dll,Control_RunDLL modem.cpl
* الامر
WinExec(PChar('rundll32.exe shell32.dll,Control_RunDLL modem.cpl'),SW_SHOWNORMAL);
----------------------------------------------------------
-* تعديلات الشبكة Show the Network configuration:
* الدالة
shell32.dll,Control_RunDLL netcpl.cpl
* الامر
WinExec(PChar('rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl'),SW_SHOWNORMAL);
----------------------------------------------------------
*- النظام
*- الدالة
hell32.dll,Control_RunDLL sysdm.cpl @1
* الامر
WinExec(PChar('rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1'),SW_SHOWNORMAL);
----------------------------------------------------------
*التحكم في العرض
* الدالة
shell32.dll,Control_RunDLL desk.cpl
وبتغيير البارامتر ينتج عدة خيارات
* الخلفية Background
WinExec(PChar('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0'),SW_SHOWNORMAL);
*شاشة التوقف Screensaver
WinExec(PChar('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1'),SW_SHOWNORMAL);
*العرض Display
WinExec(PChar('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2'),SW_SHOWNORMAL);
* التعديلات Settings
WinExec(PChar('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3'),SW_SHOWNORMAL);
----------------------------------------------------------
* فتح ملف معين باستخدام البرنامج المناسب له
Open a file with its associated application :
*الدالة
url.dll,FileProtocolHandler
بعد ان تضع الملف الدي تريد فتجه
*الامر
WinExec(PChar('rundll32.exe url.dll,FileProtocolHandler c:tt.jpg'),SW_SHOWNORMAL);
ارجو ان يكون الشرح واضح واي استفسار انا .......:'( بالشغل :P اقصد بالخدمة
وشكرا (*)