Sitemize reklam vermek için [email protected] adresine mail atabilirsiniz
For Advertising Contact [email protected]


[VB] Ctrl-Alt-Delete ve Ctrl-Esc tus kombinasyonlarinin çalismasi nasıl iptal edilir?

JoJoPaPi

Level 8
TM Üye
Ticaret - 0%
0   0   0
Katılım
29 Mar 2009
Konular
697
Mesajlar
2,980
Beğeniler
120
MmoLira
0
DevLira
0
#1
Ctrl-Alt-Delete ve Ctrl-Esc tus kombinasyonlarinin çalismasi nasıl iptal edilir
Asagidaki kodu projenizin declarations kismina yazin:

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 CtrlAltDeleteKapat(Kapali As Boolean)
Dim X As Long
X = SystemParametersInfo(97, Kapali, CStr(1), 0)
End Sub


Ctrl-Alt-Delete kombinasyonunu kapatmak için:

Call CtrlAltDeleteKapat(True)


Ctrl-Alt-Delete kombinasyonunu açmak için:

Call CtrlAltDeleteKapat(False)
 
Konu Sahibi
Konu Sahibi
JoJoPaPi

JoJoPaPi

Level 8
TM Üye
Ticaret - 0%
0   0   0
Katılım
29 Mar 2009
Konular
697
Mesajlar
2,980
Beğeniler
120
MmoLira
0
DevLira
0
#4
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 CtrlAltDeleteKapat(Kapali As Boolean)
Dim X As Long
X = SystemParametersInfo(97, Kapali, CStr(1), 0)
End Sub

Private Sub Command1_Click()
Call CtrlAltDeleteKapat(True)
End Sub


bu oluyor kod. şimdi yaptım
 
Üst