Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
'-------------------
Dim pid As Long
Dim regserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
'-------------------
Dim pid As Long
Dim regserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
解决方案 »
- 在vb6.0中用ShellExecute打开了一个1.pdf文件之后,在退出程序的时,怎样才能关闭打开的1.pdf文档呢
- VB 存储过程问题
- vb中调用VC编译的dll的函数问题,50分送...
- 救助!!(在线等待)
- mediaplayer9.0控件的进度控制问题
- datacombo怎么动态绑定呢?急急,在线等
- ■■■我想做一个类似外挂的程序,A程序启动时B就自动启动,A关闭时B就关闭,A的当前窗体发生变化时B自动敉举当前窗体所有元件(控件)
- 在问一个关于数字的算法问题......
- 使用VB6自带的Sample中自动化示例应用程序时的一个问题
- 关于vb数据库和access 2000的编程问题
- 如何将鼠标定位到窗口中的指定位置??并者最好不要用象素作单位。来者给分!
- 恳请各位仁兄赐教
在Form_load事件里写上
App.TaskVisible = False
保证没问题,哈哈
窗口的ShowInTaskbar属性设置为false就可以了