إيقاف عمل Alt+Ctrl+Del

up

شباب عاجل لو سمحتم

جرب :

Private Declare Function SystemParametersInfo Lib _ 
"user32" Alias "SystemParametersInfoA" (ByVal uAction _ 
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _ 
ByVal fuWinIni As Long) As Long 
Sub DisableCtrlAltDelete(bDisabled As Boolean) 
Dim X As Long 
X = SystemParametersInfo(97, bDisabled, CStr(1), 0) 
End Sub 

' لإبطال عمل المفاتيح ضع السطر التالي في المكان المناسب 
Call DisableCtrlAltDelete(True) 

' لإعادة عمل المفاتيح ضع السطر التالي في المكان المناسب 
Call DisableCtrlAltDelete(False)

ممكن التوضيح شوي

:)

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ...

أخي العزيز :: إبراهيم الطيب :: هذا الكود يعمل على WIN98 و WINDOWS ME ولا يعمل على Windows 2000 أو XP

اتبع الرابط التالي ستجد فيه بعض الحلول : منع ظهور قائمة Ctrl + Alt + Del فى Win XP

يعطيكم العافيه على المروو تحياتي للجميع