delphi编程将当前进程变为一个系统服务（详细）

 现在很多木马病毒以及流氓插件都注册成系统服务了，现在一起来看看是如何实现这个功能的！

　　一、把当前进程变为一个系统服务:

　　目的是在任务列表中把程序隐藏起来。调用API函数RegisterServiceProcess实现。

　　二、定义全局热键(本例中定义热键Ctrl+Del+R)，步骤：

　　1、定义捕获Windows消息WM_HOTKEY的钩子函数，即：procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;

　　2、向Windows加入一个全局原子 Myhotkey: GlobalAddAtom(’MyHotkey’), 并保留其句柄。

　　3、向Windows登记热键：调用API函数RegisterHotKey实现。

　　三、源程序：

　　unit Unit1;

　　interface

　　uses

　　Windows, Messages, Forms, Dialogs, Classes, Controls, StdCtrls;

　　type

　　TForm1 = class(TForm)

　　Button1: TButton;

　　Button2: TButton;