deceleration
| كود |
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)
|
29-10-2005, 06:03 PM
ابطال عمل مفاتيح Alt+ctrl+del
