Delphi編寫後台監控軟件(2)

{把當前進程變為一個系統服務，從而在任務列表中把程序隱藏起來}

procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE);
form1.Hide;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
{退出時釋放全局熱鍵}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(handle,id);
GlobalDeleteAtom(id);
end;
end.

四、說明：

在後台監控軟件中使用以上功能，可真正實現隱蔽運行，熱鍵調出，便於管理員進行管理。程序在Win98，Delphi5.0中運行通過。