制作一个不在任务栏及任务列表中显示的幽灵程序

网上已经有许多地方提到了如何将在任务栏隐藏应用程序，使用的方法都是将Application的属性变为WS_EX_TOOLWINDOW。即在WinMain函数中加入如下代码:

DWORD dwExStyle = GetWindowLong(Application->Handle, GWL_EXSTYLE);

dwExStyle |= WS_EX_TOOLWINDOW;

SetWindowLong(Application->Handle, GWL_EXSTYLE, dwExStyle);

Application->Initialize();

Application->CreateForm(__classid(TForm1), &Form1);

Application->ShowMainForm = false;

ShowWindow(Application->Handle, SW_HIDE);

Application->Run();

这样做之后，应用程序就不会在任务栏显示了，但在WIN9X的任务列表中仍能看到。要想在任务列表也将自己的程序隐藏就要借用kernel32.DLL中的RegisterServiceProcess这个函数了。由于要从DLL加载函数，我们先在头文件中加入：

typedef DWORD (__stdcall *pRegFunction)(DWORD, DWORD);

在主Form的类定义中加入两个私有属性:

HINSTANCE hKernelLib;

pRegFunction RegisterServiceProcess;

用于记录从DLL加入的函数信息。

然后在主Form的构造代码中加入如下代码:

hKernelLib = LoadLibrary("kernel32.dll");

if(hKernelLib)

{

RegisterServiceProcess =

(pRegFunction)GetProcAddress(hKernelLib,

"RegisterServiceProcess");

if(RegisterServiceProcess)

RegisterServiceProcess(GetCurrentProcessId(),RSP_SIMPLE_SERVICE);

}

这段代码主要是把当前进程变为一个系统服务，从而在任务列表中把程序隐藏起来,相应的在构析代码中加入

if(hKernelLib)

{

if(RegisterServiceProcess)

RegisterServiceProcess(GetCurrentProcessId(),

RSP_UNREGISTER_SERVICE);

FreeLibrary(hKernelLib);

}

这样处理之后，程序就不在任务列表中出现了，但仍可用EnumWindows函数查出来。