CTRL+ALT+Delete
Son güncelleme:
-
Bu kod sayesinde kullanıcı CTRL+ALT+Delete tuşlarına
bastığında formunuz çıkan listede gözükmeyecektir.
1 Module açın
'*****************
'Module yazılacak kısım
'*****************
Public Declare Function GetCurrentProcessId _
Lib "kernel32" () As Long
Public Declare Function GetCurrentProcess _
Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess _
Lib "kernel32" (ByVal dwProcessID As Long, _
ByVal dwType As Long) As Long
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
Public Sub show()
Dim p As Long
Dim r As Long
p = GetCurrentProcessId()
regserv = RegisterServiceProcess(p, RSP_SIMPLE_SERVICE)
End Sub
Public Sub hide()
Dim p As Long
Dim r As Long
p = GetCurrentProcessId()
regserv = RegisterServiceProcess(p, _
RSP_UNREGISTER_SERVICE)
End Sub
'Module Yazılacak kısım bitti
'Formun Load bölümüne yazılacak kısım
hide
'Formun Load bölümüne yazılacak kısım bitti
'(Not : NT4.0 veya windows 2000'de çalışmaz)
-
Bilgin için teşekkür ederim arkadaşım.Bi deniyim böle değişik şeylere meraklıyımdır ben !!!!!!!!
-
allah senden pır mersi ama bu hangi program için?????
konuları ayrı başlık altında toplarlarsa iyi olur bence
-
tamam da hangi programlama dilinde yazacağız bari onu belirtseydin usta
Teşekkürler ellerin esağlık