怎样写一个能常驻系统的程序？

Question

一个后台程序或是一个驻留在systray的就可以
然后用hotkey或是message来激活

Answer 1

用Filecopy 把程序快捷方式复制到启动组。
再用vb5盘下的tool\systray\systray.ocx便可以驻留在系统托盘。
这样便可以了。

Answer 2

    Windows 是多任务的，所以不存在像 Dos 下要调用 int 的问题。只要一个程序不退出它就是驻留在系统里。且还可运行别的程序。
    你有两种方法可参考：1、将程序缩小在 SysTray 里。2、索性将程序完全隐藏.

Answer 3

你要 SysTray 的代码，请email: [email protected]

Answer 4

To:xiaohuilau
1、怎样将程序缩小在 SysTray 里。2、怎样将程序完全隐藏.

Answer 5

To SuperHelpMe: 哦，完全隐藏指按Alt+Del+Ctrl也看不见，你收到了SysTray 了吗？

Answer 6

我想问，怎样写一个后台程序，怎样将程序完全隐藏？
我公布得分：
  subzero 5
  Herro  5
  xiaohuilau  5
  shines 46

Answer 7

使程序在按 Alt+Ctrl+Del 时不出现：Option Explicit
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0
     
Private Sub MakeMeService()
     Dim pid As Long
     Dim reserv As Long
     pid = GetCurrentProcessId()
     RegisterServiceProcess pid, RSP_SIMPLE_SERVICE
End Sub
     
Private Sub UnMakeMeService()
     Dim pid As Long
     Dim reserv As Long
     pid = GetCurrentProcessId()
     RegisterServiceProcess pid, RSP_UNREGISTER_SERVICE
End Sub
     
Private Sub Command1_Click()
     Call MakeMeService     '使程序在 Ctrl+Alt+Del 窗口隐藏
End Sub
     
Private Sub Command2_Click()
     Call UnMakeMeService   '使程序在 Ctrl+Alt+Del 窗口显示
End Sub