如何让程序以服务方式跟随ＸＰ启动？

Public   Declare   Function   RegisterServiceProcess Lib "kernel32" (ByVal ProcessID   As   Long,   ByVal  ServiceFlags   As Long) As Long   
Public   Declare   Function   GetCurrentProcessId   Lib   "kernel32"   ()   As   Long   
   
  RegisterServiceProcess   GetCurrentProcessId,   1   '(注册系统服务)   
   
  RegisterServiceProcess   GetCurrentProcessId,   0   '(取消系统服务)

[[it] 本帖最后由 simpson 于 2008-7-18 14:11 编辑 [/it]]

呕  好象不能随xp启动