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)

Etiketler:
Beğeniler: 0
Favoriler: 0
İzlenmeler: 1083
favori
like
share
fiber_optic Tarih: 28.09.2006 17:30
tamam da hangi programlama dilinde yazacağız bari onu belirtseydin usta

Teşekkürler ellerin esağlık
Halil_63 Tarih: 22.03.2006 22:35
allah senden pır mersi ama bu hangi program için?????
konuları ayrı başlık altında toplarlarsa iyi olur bence
sonersnr Tarih: 09.02.2006 18:48
allah razı olsun
SU-PERISI Tarih: 06.12.2005 18:40
paylaşım için teşekkürler
keto_41 Tarih: 05.12.2005 22:18
BiLGiLeR iCiN TeSSeKüR eDeRiM arKaDaSiM
tgunes_mail Tarih: 11.11.2005 16:15
saol tşkler
cetin_bezirgan Tarih: 31.10.2005 15:55
Bilgin için teşekkür ederim arkadaşım.Bi deniyim böle değişik şeylere meraklıyımdır ben !!!!!!!!