### Delphi 使用技艺大全之隐藏进程技巧
#### 隐藏进程背景与原理
在软件开发过程中，有时我们可能需要让程序在后台静默运行，不希望用户通过常规方式（如`Alt`+`Ctrl`+`Del`）来查看或管理这些进程。这在特定的应用场景下非常有用，例如系统服务、后台监控程序等。本文将详细介绍如何在Delphi中实现这一功能。
#### 实现方法一：使用 `RegisterServiceProcess`
为了使程序在运行时不被`Alt`+`Ctrl`+`Del`的任务管理器看到，可以采用以下方法：
1. **添加外部声明**：
在程序的 `implementation` 部分添加以下声明：
```delphi
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
```
2. **调用函数**：
在窗体创建事件 `Create` 中加入以下代码来调用 `RegisterServiceProcess` 函数：
```delphi
RegisterServiceProcess(GetCurrentProcessID, 1); // 隐藏
```
这里的 `1` 表示隐藏进程。需要注意的是，此方法适用于 Windows NT 平台，如果是其他平台，则需要进行兼容性处理。
#### 实现方法二：自定义隐藏函数
另一种更通用的方法是创建一个自定义函数 `My_SelfHide` 来实现隐藏逻辑：
1. **定义类型**：
定义一个 `TRegisterServiceProcess` 类型，用于指向 `RegisterServiceProcess` 函数。
```delphi
type
TRegisterServiceProcess = function(dwProcessID, dwType: DWord): DWORD; stdcall;
```
2. **加载库并获取函数指针**：
使用 `LoadLibrary` 和 `GetProcAddress` 加载 `KERNEL32.DLL` 并获取 `RegisterServiceProcess` 的地址。
```delphi
hNdl := LoadLibrary('KERNEL32.DLL');
RegisterServiceProcess := GetProcAddress(hNdl, 'RegisterServiceProcess');
```
3. **调用函数**：
调用 `RegisterServiceProcess` 函数，并确保在完成后释放库。
```delphi
RegisterServiceProcess(GetCurrentProcessID, 1);
FreeLibrary(hNdl);
```
4. **完整函数**：
将以上代码整合到 `My_SelfHide` 函数中，判断当前操作系统是否为 Windows NT，如果不是，则执行隐藏操作。
```delphi
function My_SelfHide: Boolean;
var
hNdl: THandle;
RegisterServiceProcess: TRegisterServiceProcess;
begin
Result := False;
if Win32Platform <> VER_PLATFORM_WIN32_NT then // 不是 NT
begin
hNdl := LoadLibrary('KERNEL32.DLL');
RegisterServiceProcess := GetProcAddress(hNdl, 'RegisterServiceProcess');
RegisterServiceProcess(GetCurrentProcessID, 1);
FreeLibrary(hNdl);
Result := True;
end
else
Exit;
end;
```
#### 自启动配置
除了隐藏进程外，有时还需要让程序在系统启动时自动运行。可以通过注册表设置实现：
1. **添加注册表路径**：
```delphi
const
K = '\Software\Microsoft\Windows\CurrentVersion\RunServices';
```
2. **写入注册表值**：
在窗体创建事件中，读取程序文件名并检查是否已经存在于系统的 `RunServices` 目录中，如果不在则添加。
3. **获取系统目录**：
使用 `GetSystemDirectory` 函数获取系统目录，并将其存储在字符串变量中。
```delphi
function GetWinDir: String;
var
Buf: array[0..MAX_PATH] of Char;
begin
GetSystemDirectory(Buf, MAX_PATH);
Result := Buf;
if Result[Length(Result)] <> '\' then
Result := Result + '\';
end;
```
#### 单例程序控制
为了防止程序重复运行，可以采用单例机制来确保只运行一个实例：
1. **查找窗口**：
使用 `FindWindow` 函数检查是否有名为 `Form1` 的窗口存在。
```delphi
if FindWindow('TForm1', 'Form1') = 0 then
begin
// 未找到 Form1 时执行
Application.ShowMainForm := False; // 不显示主窗体
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
```
2. **修改程序入口**：
在程序入口 `dpr` 文件中修改 `begin` 和 `end` 之间的代码，添加上述检查逻辑。
以上介绍了在 Delphi 中如何实现隐藏进程、自启动配置以及单例控制的方法。这些技术对于开发系统级别的应用非常有用，可以帮助我们更好地控制程序的行为。
