أبقى برنامج يمنع تغيير الخلفية وشاشة التوقف

:confused:

في الحقيقة أنت لاتحتاج لبرنامج خاص لانجاز المهمة، فيمكنك ضبط القيمتين NoDispBackgroundPage و NoDispScrSavPage إلى 1 في مسجل النظام على المسار HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem وذلك لاخفاء لساني التبويب "الخلفية" و "شاشة التوقف" والتي تتبع نافذة خصائص العرض .... مع ملاحظة أن يجب عليك اعادة تشغيل الجهاز قبل تفعيل الامر... ويمكنك بلورت الفكرة برمجيا من خلال الدوال التي تتعامل مع الريجيستري، مع ملاحظة أن القيمة من نوع DWORD..

Private Const HKEY_CURRENT_USER = &H80000001
Private Const REG_DWORD = 4
Private Declare Function RegCloseKey Lib "advapi32.dll" _
 (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" _
 Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal _
 lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" _
 Alias "RegSetValueExA" (ByVal hKey As Long, ByVal _
 lpValueName As String, ByVal Reserved As Long, ByVal _
 dwType As Long, lpData As Any, ByVal cbData As Long) _
 As Long

Private Sub SetRegValue(hKey As Long, sPath As String, _
 sValue As String, lData As Long)
 Dim RetVal&
 RegCreateKey hKey, sPath, RetVal
 RegSetValueEx RetVal, sValue, 0, REG_DWORD, lData, 4
 RegCloseKey RetVal
End Sub

Private Sub Command1_Click()
'"الغاء لسان التبويب "الخلفية
SetRegValue HKEY_CURRENT_USER, "SoftwareMicrosoft" & _
 "WindowsCurrentVersionPoliciesSystem", _
 "NoDispBackgroundPage", 1
End Sub

جزاك الله كل الخير يا (Read Only) (f) (f) (f)

دااااااااااااااائما ;)

مشكور أخوي