چطور می توان Ctrl+Alt+Delete را غیر فعال کرد ؟

[habedijoo]

با سلام به همه دوستان

من میخواهم تا وقتی که برنامه ام در حال اجراست Ctrl+Alt+Delete غیر فعال باشد .

با تشکر از همه

[HO457]

برای این کار باید از توابع API استفاده کنی. توی یکی از تاپیکها برنامه keyspy هستش با سورس، ولی با وی بی 6 نوشته شده باید تبدیل کنی به وی بی دات نت. میتونه کمکت کنه.
:موفق: :sunglass:

Public Sub WindowsAbility(ByVal InVal As Int16)
Dim WS
'EXPLORER

WS = CreateObject("WScript.Shell")
WS.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System\DisableTaskMgr", InVal, "REG_DWORD")

end sub

[habedijoo]

اقای ekhosravi

از جوابتان متشکرم .

1- فکر کنم نظر شما نوشتن در رجیستری است . اما نگفتید که چه مقداری باید به تابع داده شود .
اگر لطف کنی آنرا بگویید متشکر می شوم .

2- با این روش بطور کل اجاره Reset را از کاربرها می گیرم . ولی ما می خواهیم تا موقعی که نرم افزار ما در حال اجراست این اجازه ازکاربر گرفته شود و بعد از خارج شدن از نرم افزار Reset کردن آزاد باشد .
( منظور از Reset همان دکمه های Ctrl+Alt+Del می باشد )

بازهم تشکر از شما

[سعید قدیری مقدم]

دوست عزیز مقدار عددی 1 این کلید ها رو غیر فعال و مقدار 0 فعال میکند
شما می توانی وقتی برنامه اجرا می شود مقدار 1 را به رجیستری ارسال کنید و هنگام خروج از بر نامه هم مقدار 0 رو ارسال کنید

[حامد مصافی]

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 Integer
x = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub