لإخفاء البرنامج من قائمة إنهاء المهام

achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: كانون الثاني 09, 2009, 08:36:46 مسائاً
لإخفاء البرنامج من قائمة إنهاء المهام
   
 كود:
'Module File هذا الجزء في ملف برمجي

Public Declare Function GetCurrentProcessId _
Lib "kernel32" () As Long
Public Declare Function GetCurrentProcess _
Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess _
Lib "kernel32"

Private Sub Command1_Click()
Dim pid As Long
Dim reserv As Long
' لإخفاء البرنامج من قائمة إنهاء المهام
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub

Private Sub Command2_Click()
Dim pid As Long
Dim reserv As Long
'لإعادة البرنامج في قائمة إنهاء المهام
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, _
RSP_UNREGISTER_SERVICE)
End Sub


Ssoft

  • Hero Member
  • *****
    • مشاركة: 1410
    • مشاهدة الملف الشخصي
    • http://sabeur-academy.com
    • البريد الالكتروني
رد #1 في: كانون الثاني 10, 2009, 11:58:03 صباحاً
thank'ssssssssss


lucky girl

  • Hero Member
  • *****
    • مشاركة: 1151
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: كانون الثاني 12, 2009, 06:05:58 مسائاً
merciiiiiiiiiiiiiiiii bcp


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #3 في: كانون الثاني 14, 2009, 03:13:13 مسائاً
لا شكرا على واجب شكرا لمروركم