В этой статье мы научимся скрывать программу из Диспетчера задач. Для этого мы будем использовать функцию RegisterServiceProcess. Обычно, из Диспетчера задач скрывают вредоносную программу, но все же я научу вас :)
Создадим новый проект, или откройте готовый, создадим событие формы OnCreate, и пишем следующее:
var
RegProcess: function (p1, p2:integer): integer; stdcall;
hDllKernel: HInst;
begin
if GetVersion >= $80000000 then begin
hDllKernel := LoadLibrary(‘kernel32.dll’);
RegProcess := GetProcAddress(hDllKernel, ‘RegisterServiceProcess’);
RegProcess(0, 1);
end;
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW);
end;
Объясню вам некоторые нюансы. Если у вас Windows NT, то спешу вас временно огорчить, в данной версии Windows нет функции RegisterServiceProcess :( . Но, как я говорил временно, благодаря куску кода, программа проверяет вашу версию Windows, и если у вас Windows NT, то она добавляет в систему некую dll’ку — kernel32.dll, которая дает возможность использовать функцию RegisterServiceProcess на Windows NT
if GetVersion >= $80000000 then begin
hDllKernel := LoadLibrary(‘kernel32.dll’);
RegProcess := GetProcAddress(hDllKernel, ‘RegisterServiceProcess’);
RegProcess(0, 1);
end;