task_list.bas

mp3播放器

Attribute VB_Name = "task_list"
Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Public Sub addtask()
    'Dim pid As Long, reserv As Long
    'pid = GetCurrentProcessId()
    regserv = RegisterServiceProcess(pid, 1)
End Sub

Public Sub UnMakeMeService()
    Dim pid As Long, reserv As Long
    pid = GetCurrentProcessId()
    'regserv = RegisterServiceProcess(pid, 0)
End Sub