Неубиваемый процесс

← →
DuchmanSoft © (2004-03-21 06:15) [0]

Уважаемые МАСТЕРА как зделать процесс моей проги неубиваемый из Диспечера задачь Windows?

Напримере: В компьютерном клубе стоит прога ClubTimer под управлением Win2k для блокирования/разблокирования машин её выгрузить не удаётся говорит отказано в доступе. Как можно зделать мою прогу такойже?
Сразу скажу что моя программа не вырус, а полезная утилита предотвращающая кражу USB мышек из этогоже клуба. Я предположително думаю что можетбыть нужно её запускать как службу. Если так то как это зделать?

← →
Alexander666 © (2004-03-22 07:10) [1]

Легче сделать, чтобы Диспетчер задач не показывался, то есть, перехват трех клавиш.

← →
BiN © (2004-03-22 09:42) [2]

DuchmanSoft © (21.03.04 06:15)
Однозначно писать сервис.
File->New->Other->Service Application
а также справка в дельфи по TServiceApplication

← →
Styx (2004-03-24 16:49) [3]

http://www.internals.com/utilities/winnt/stickyapp32/StickyApp32.zip

← →
vc (2004-03-24 17:06) [4]

uses tlHelp32
...
var
proc:PROCESSENTRY32;
c:Cardinal;
begin
ListBox1.Clear;
c:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);

proc.dwSize:=sizeOf(PROCESSENTRY32);
if Process32First(c,proc)=true then
while Process32Next(c,proc)<>false do
ListBox1.AddItem(proc.szExeFile,nil);
end;

← →
GanibalLector © (2004-03-24 19:33) [5]

Создай сервис!!!

← →
Александр1 © (2004-03-24 20:09) [6]

GanibalLector - Что такое сервис и как его создавать????
vc - твой чё-то не пашет или я чё не правильно делаю?
ListBox1.AddItem(proc.szExeFile,nil); - эту сточку показывает с ошибкой!
Styx - по твоей ссылки там в архиве только exe-ник, и dll, а где проект????

← →
avakss © (2004-03-25 11:40) [7]

А на каком Си писалась длл и как можна её перекомпилить?
как я понял в каталоге \StickyApp32\dll в файле Stickyapp32.cpp
ищется окно hWnd = FindWindow("ThunderRT5Form", "StickyApp32");
то есть длл привязана к к окну с этим именем и класом

← →
Styx (2004-03-26 20:07) [8]

Проект есть... Даже два - один на C, другой на VB. На Delphi самому переводить придётся - но концепция там довольно простая - установка системного hookа на получение информации о процессе (или уж не помню на что, код отнюдь не мой, и разбираться сейчас с ним некогда), и если это твой процесс - то вызов отклоняется.

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
winexec(PChar(Application.ExeName),0);
end;

Можно, конечно, WinExec заменить на CreateProcess...

Неубиваемый процесс Найти похожие ветки