كود رهيب يمنع برنامجك من الظهور بقائمة Alt + Ctrl + Delete


بسم الله الرحمن الرحيم

هذا كود وجدته بأحد المواقع يمنع برنامجك من الظهور بقائمة Alt + Ctrl + Delete

ضع هذا الكود فى
Genral

كود:


Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" _
(ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Sub HideApp(Hide As Boolean)
Dim ProcessID As Long
ProcessID = GetCurrentProcessId()
If Hide Then
retval = RegisterServiceProcess(ProcessID, RSP_SIMPLE_SERVICE)
Else
retval = RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE)
End If
End Sub
وهذا فى
Load


مع تحيات www.3rb-hk.com (http://www.3rb-hk.com)

مشكوووور

العفو يا مان

عساك على القوة

وننتظر المزيد

مشكور حبيبي على الكود الحلو

مشكوووور علي الكود الجميل اخوي........


هيثم..

تسلم حبيبي

يعطيك العافيه اخوي

thnxxxxxxxxxxxxxxxxxxx man walahey an2 kont bdaor 3lie7

<div class='quotetop'>إقتباس</div>Originally posted by بـــوســـارة@Oct 22 2004, 01:11 PM
عساك على القوة

وننتظر المزيد
<div align="right">5205
[/b][/quote]
B)