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
Katılım
29 Mar 2009
Konular
697
Mesajlar
2,980
Reaksiyon Skoru
120
Başarım Puanı
175
MmoLira
0
DevLira
0
En İyi Cevap Puanı
0
Ticaret - 0%
0   0   0
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)
 

drache

Level 1
Üye
Katılım
17 Haz 2009
Konular
0
Mesajlar
1
Reaksiyon Skoru
0
Başarım Puanı
44
MmoLira
0
DevLira
0
En İyi Cevap Puanı
0
Ticaret - 0%
0   0   0
bune ya :D hiç bi halt anlamadım
 
Konu Sahibi
Konu Sahibi
JoJoPaPi

JoJoPaPi

Level 8
TM Üye
Katılım
29 Mar 2009
Konular
697
Mesajlar
2,980
Reaksiyon Skoru
120
Başarım Puanı
175
MmoLira
0
DevLira
0
En İyi Cevap Puanı
0
Ticaret - 0%
0   0   0
Konu Sahibi
Konu Sahibi
JoJoPaPi

JoJoPaPi

Level 8
TM Üye
Katılım
29 Mar 2009
Konular
697
Mesajlar
2,980
Reaksiyon Skoru
120
Başarım Puanı
175
MmoLira
0
DevLira
0
En İyi Cevap Puanı
0
Ticaret - 0%
0   0   0
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
 

KRHN

Level 1
Üye
Katılım
9 Tem 2009
Konular
1
Mesajlar
21
Reaksiyon Skoru
1
Başarım Puanı
47
MmoLira
0
DevLira
0
En İyi Cevap Puanı
0
Ticaret - 0%
0   0   0
teşekkürler...
 

Şu an konuyu görüntüleyenler (Toplam : 1, Üye: 0, Misafir: 1)

Üst