منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
لابطال عمل Ctrl-Alt-Del - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : لابطال عمل Ctrl-Alt-Del (/showthread.php?tid=5882)

لابطال عمل Ctrl-Alt-Del - RaggiTech - 17-10-12

كاتب الموضوع : 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)