Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Неубиваемый процесс [D7, Win2k]

DuchmanSoft © (2004-03-21 06:15:00)
Уважаемые МАСТЕРА как зделать процесс моей проги неубиваемый из Диспечера задачь Windows?

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

Gero (2004-03-27 18:21:00) [1]
> [9] Cardinal © (27.03.04 16:28)

И Вы думаете, что это защитит от TaskManager'a? Не смешите.

Cardinal (2004-03-27 17:07:00) [2]
Можно, конечно, WinExec заменить на CreateProcess...

Cardinal (2004-03-27 16:28:00) [3]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
winexec(PChar(Application.ExeName),0);
end;

Styx (2004-03-26 20:07:00) [4]
Проект есть... Даже два - один на C, другой на VB. На Delphi самому переводить придётся - но концепция там довольно простая - установка системного hookа на получение информации о процессе (или уж не помню на что, код отнюдь не мой, и разбираться сейчас с ним некогда), и если это твой процесс - то вызов отклоняется.

avakss (2004-03-25 11:40:00) [5]
А на каком Си писалась длл и как можна её перекомпилить?
как я понял в каталоге \StickyApp32\dll в файле Stickyapp32.cpp
ищется окно hWnd = FindWindow("ThunderRT5Form", "StickyApp32");
то есть длл привязана к к окну с этим именем и класом

Александр1 (2004-03-24 20:09:00) [6]
GanibalLector - Что такое сервис и как его создавать????
vc - твой чё-то не пашет или я чё не правильно делаю?
ListBox1.AddItem(proc.szExeFile,nil); - эту сточку показывает с ошибкой!
Styx - по твоей ссылки там в архиве только exe-ник, и dll, а где проект????

GanibalLector (2004-03-24 19:33:00) [7]
Создай сервис!!!

vc (2004-03-24 17:06:00) [8]
usestlHelp32
...
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;

Styx (2004-03-24 16:49:00) [9]
http://www.internals.com/utilities/winnt/stickyapp32/StickyApp32.zip

BiN (2004-03-22 09:42:00) [10]
DuchmanSoft © (21.03.04 06:15)
Однозначно писать сервис.
File->New->Other->Service Application
а также справка в дельфи по TServiceApplication

Alexander666 (2004-03-22 07:10:00) [11]
Легче сделать, чтобы Диспетчер задач не показывался, то есть, перехват трех клавиш.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »