Форум: "Система";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Вниз
Неубиваемый процесс Найти похожие ветки
← →
DuchmanSoft © (2004-03-21 06:15) [0]Уважаемые МАСТЕРА как зделать процесс моей проги неубиваемый из Диспечера задачь Windows?
Напримере: В компьютерном клубе стоит прога ClubTimer под управлением Win2k для блокирования/разблокирования машин её выгрузить не удаётся говорит отказано в доступе. Как можно зделать мою прогу такойже?
Сразу скажу что моя программа не вырус, а полезная утилита предотвращающая кражу USB мышек из этогоже клуба. Я предположително думаю что можетбыть нужно её запускать как службу. Если так то как это зделать?
← →
DuchmanSoft © (2004-03-21 06:15) [0]Уважаемые МАСТЕРА как зделать процесс моей проги неубиваемый из Диспечера задачь Windows?
Напримере: В компьютерном клубе стоит прога ClubTimer под управлением Win2k для блокирования/разблокирования машин её выгрузить не удаётся говорит отказано в доступе. Как можно зделать мою прогу такойже?
Сразу скажу что моя программа не вырус, а полезная утилита предотвращающая кражу USB мышек из этогоже клуба. Я предположително думаю что можетбыть нужно её запускать как службу. Если так то как это зделать?
← →
Alexander666 © (2004-03-22 07:10) [1]Легче сделать, чтобы Диспетчер задач не показывался, то есть, перехват трех клавиш.
← →
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
← →
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
← →
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;
← →
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]Создай сервис!!!
← →
GanibalLector © (2004-03-24 19:33) [5]Создай сервис!!!
← →
Александр1 © (2004-03-24 20:09) [6]GanibalLector - Что такое сервис и как его создавать????
vc - твой чё-то не пашет или я чё не правильно делаю?
ListBox1.AddItem(proc.szExeFile,nil); - эту сточку показывает с ошибкой!
Styx - по твоей ссылки там в архиве только exe-ник, и dll, а где проект????
← →
Александр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");
то есть длл привязана к к окну с этим именем и класом
← →
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а на получение информации о процессе (или уж не помню на что, код отнюдь не мой, и разбираться сейчас с ним некогда), и если это твой процесс - то вызов отклоняется.
← →
Styx (2004-03-26 20:07) [8]Проект есть... Даже два - один на C, другой на VB. На Delphi самому переводить придётся - но концепция там довольно простая - установка системного hookа на получение информации о процессе (или уж не помню на что, код отнюдь не мой, и разбираться сейчас с ним некогда), и если это твой процесс - то вызов отклоняется.
← →
Cardinal © (2004-03-27 16:28) [9]procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
winexec(PChar(Application.ExeName),0);
end;
← →
Cardinal © (2004-03-27 16:28) [9]procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
winexec(PChar(Application.ExeName),0);
end;
← →
Cardinal © (2004-03-27 17:07) [10]Можно, конечно, WinExec заменить на CreateProcess...
← →
Cardinal © (2004-03-27 17:07) [10]Можно, конечно, WinExec заменить на CreateProcess...
← →
Gero © (2004-03-27 18:21) [11]> [9] Cardinal © (27.03.04 16:28)
И Вы думаете, что это защитит от TaskManager"a? Не смешите.
← →
Gero © (2004-03-27 18:21) [11]> [9] Cardinal © (27.03.04 16:28)
И Вы думаете, что это защитит от TaskManager"a? Не смешите.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.037 c
