Как можно убрать отображение своего работающего проекта из списка задач? - VB

Узнай цену своей работы

Формулировка задачи:

На сегодня у меня такой вопрос, попробую сформулировать: как можно убрать отображение своего работающего проекта из списка задач - т.е. Ctrl+Alt+Delete, чтоб он был виден только в процессах. Я нашел код для Windows 9x, но под XP он не работает. Спасибо

Решение задачи: «Как можно убрать отображение своего работающего проекта из списка задач?»

textual
Листинг программы
  1. Const RSP_SIMPLE_SERVICE = 1
  2. Const RSP_UNREGISTER_SERVICE = 0
  3. Private Declare Function GetCurrentProcessId Lib 'kernel32' () As Long
  4. Private Declare Function RegisterServiceProcess Lib 'kernel32' (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
  5. Public Sub MakeMeService()
  6.     Dim pid As Long, reserv As Long
  7.     'Get the current process ID
  8.    pid = GetCurrentProcessId()
  9.     'Register as service
  10.    regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
  11. End Sub
  12. Public Sub UnMakeMeService()
  13.     Dim pid As Long, reserv As Long
  14.     'Get the current process ID
  15.    pid = GetCurrentProcessId()
  16.     'Unregister as service
  17.    regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
  18. End Sub
  19. Private Sub Form_Load()
  20.     'KPD-Team 1999
  21.    'URL: [url]http://www.allapi.net/[/url]
  22.    'E-Mail: [email]KPDTeam@Allapi.net[/email]
  23.    MakeMeService
  24.     'Right now, you're program is hidden from the CTRL-ALT-DEL-list
  25. End Sub
  26. Private Sub Form_Unload(Cancel As Integer)
  27.     UnMakeMeService
  28. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы