Скрытие процесса

[komex]

Помогите, пожалуйста! Мне надо как-то скрыть процесс, что бы его не было видно через TaskManager (Ctrl+Alt+Del -> Процессы). Или хотя бы что б его нельзя было закрыть вручную. Я смотрел по форуму, приводят примеры, но не указывают, какие библиотеки надо подключать. А без них не работает. Был вроде рабочий пример, но от него немного тормозил комп. Да и форма не отображалась... В общем, кто может, помогите!

[SuperVisor]

Посмотри эту тему: http://www.programmersforum.ru/showthread.php?t=18

[komex]

Сообщение от SuperVisor

Посмотри эту тему: http://www.programmersforum.ru/showthread.php?t=18

Я читал уже эту тему. Этот код не работает, т.к. трубует KERNEL32.DLL:

unit cad; 

interface 
uses windows; 

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; 
stdcall; external 'KERNEL32.DLL'; 
function ShowHideInCad(ProcessID: Integer; Show: Boolean): boolean; 
function TakeProcessID(WindowTitle: string): Integer; 
function TakeMyApplicationProcessID: Integer; 

implementation 

//Получение дескриптора процесса любого окна, по заголовку этого окна 

function TakeProcessID(WindowTitle: string): Integer; 
var 
WH: THandle; 
begin 
result := 0; 
WH := FindWindow(nil, pchar(WindowTitle)); 
if WH <> 0 then 
GetWindowThreadProcessID(WH, @Result); 
end; 

//Получение дескриптора процесса собственного приложения 

function TakeMyApplicationProcessID: Integer; 
begin 
Result := GetCurrentProcessID; 
end; 

//Отображение/Скрытие процесса в CTRL+ALT+DEL 

function ShowHideInCAD(ProcessID: Integer; Show: Boolean): Boolean; 
begin 
result := true; 
try 
//если show = true , то отображаем процесс в CAD, иначе - прячем 
if Show = True then 
RegisterServiceProcess(ProcessID, 0) 
else 
RegisterServiceProcess(ProcessID, 1); 
except result := false; 
end; 
end; 

end.

А код SHEI'TI срабатывает. В процессах программу не видно, только она тормозит систему, да и любые изменения не срабатывают. К тому же, после каждого запуска программы приходится перезапускать комп, что бы проверить как работает после изменений.
Мне надо что бы было видно окно программы, а процесса не видно. Или можно сделать, что бы его было видно, но нельзя было закрыть. Не знаю что делать. Помогите плз!

[zetrix]

Э.. А какая операционка стоит? (у тебя)

[komex]

Сообщение от zetrix

Э.. А какая операционка стоит? (у тебя)

ОС Windows XP SP2. А это на что-то влияет?

[zetrix]

Да, операционка (win98/winXP) на много влияет, но как раз в случае ХР это и не работает. (Там SuperVisor давал ссылку на тему, в ней ниже же всё написано)
Вот посмотри в тойже теме это сообщение: http://www.programmersforum.ru/showp...19&postcount=4

[komex]

Сообщение от zetrix

Да, операционка (win98/winXP) на много влияет, но как раз в случае ХР это и не работает. (Там SuperVisor давал ссылку на тему, в ней ниже же всё написано)
Вот посмотри в тойже теме это сообщение: http://www.programmersforum.ru/showp...19&postcount=4

function HideProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall;
external 'hide.dll';

Этот код работает. Только у меня при повторном запуске программы выбивает ошибки. Я думаю это их-за библиотеки Hide.dll. Подскажите, как можно избежать этих ошибок?

[zetrix]

Если честно, я так эту библиотеку и не опробовал, т.к. антивирус у меня разругался сильно.. А что за ошибки? И когда? При компиляции библиотеки, или при работе программы?

[komex]

Сообщение от zetrix

Если честно, я так эту библиотеку и не опробовал, т.к. антивирус у меня разругался сильно.. А что за ошибки? И когда? При компиляции библиотеки, или при работе программы?

Ошибки возникают при повторном запуске программы. Ошибки типа:

Инструкция по адресу "0x06853700" обратилась к памяти по адрусу "0x00000001".
Память не может быть "written".

После этого вырубается эксплорер, потом опять запускается. И так несколько раз. И вообще, меня эта библиотека как-то настораживает, хотя проверил антивирусом - вроде все норм! Лучше бы код выложили, чем библиотеку. Стоит ли ее использовать? И есть ли где код этой библиотеки?

[komex]

Кто нибудь, хелп ми!