task_list.bas

来自「mp3播放器」· BAS 代码 · 共 16 行

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