تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لابطال عمل Ctrl-Alt-Del
#1
كاتب الموضوع : AhmedEssawy

*** الكود منقول من المنتدى القديم .

في التصريحات

كود :
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)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود للبحث في تكست بواسطة Ctrl + F RaggiTech 0 497 17-10-12, 02:52 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم