Типа Страж

[RealSHELS]

Вот написал прогу на заказ своего соседа. Она как Страж Манжосова Дениса. Небольшая и простенькая, но все, хочу чтобы вы нашли ошибки и посоветовали что добавить.

[Alter]

Закрытие только через конткстное меню формы возможно.
Ну и краткое описание реакции каперского:

Проактивная защита : работает
-----------------------------
Проверено событий: 1
Заблокировано: 1

Обнаружено
----------
Статус Объект
------ ------
обнаружено: потенциально опасное ПО Trojan.generic Процесс: ...\Abort\Abort.exe

События
-------
Create File
C:\WINDOWS\csrss.exe
Create Reg
\REGISTRY\MACHINE\SOFTWARE\Microsof t\Windows\CurrentVersion\Run\Abort
\REGISTRY\USER\S-1-5-21-861567501-1972579041-1801674531-1003\Software\Microsoft\Windows\Cur rentVersion\Explorer\MountPoints2\{ 35f207dc-9c47-11dc-bd85-806d6172696f}\BaseClass
\REGISTRY\USER\S-1-5-21-861567501-1972579041-1801674531-1003\Software\Microsoft\Windows\Cur rentVersion\Explorer\MountPoints2\{ 35f207dd-9c47-11dc-bd85-806d6172696f}\BaseClass
\REGISTRY\USER\S-1-5-21-861567501-1972579041-1801674531-1003\Software\Microsoft\Windows\Cur rentVersion\Explorer\MountPoints2\{ 2b7acae6-6e04-11dd-ba4c-00115b3f26c8}\BaseClass
\REGISTRY\USER\S-1-5-21-861567501-1972579041-1801674531-1003\Software\Microsoft\Windows\Cur rentVersion\Explorer\MountPoints2\{ 35f207e1-9c47-11dc-bd85-806d6172696f}\BaseClass
\REGISTRY\USER\S-1-5-21-861567501-1972579041-1801674531-1003\Software\Microsoft\Windows\Cur rentVersion\Explorer\MountPoints2\{ 35f207e0-9c47-11dc-bd85-806d6172696f}\BaseClass
\REGISTRY\USER\S-1-5-21-861567501-1972579041-1801674531-1003\Software\Microsoft\Windows\Cur rentVersion\Explorer\MountPoints2\{ 35f207de-9c47-11dc-bd85-806d6172696f}\BaseClass
\REGISTRY\USER\S-1-5-21-861567501-1972579041-1801674531-1003\Software\Microsoft\Windows\Cur rentVersion\Explorer\MountPoints2\{ 35f207df-9c47-11dc-bd85-806d6172696f}\BaseClass

[RealSHELS]

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

Закрытие только через конткстное меню формы возможно.

Это не понял.

Там где Create FIle, еще каспер не увидел ab.txt, ab1.txt.
Там где про реестр, там он в автозапуск прописывется.
csrss.exe это резервная копия програмы.

[Alter]

На форме не нашел где ещё можно закрыть программу, кроме как через праую кнопку мыши.
И язык Russian добавить надо.
А также описание к программе, что делает, каким способом.

[RealSHELS]

Я хочу сделать так, чтобы её выключить невозможно было, но для вас скажу тайный ход. Если сделать двойной клик по надписи "Зроблено спеціально для Сенченка Андрія by RealSHELS", то програма закроется.
Язык добавлять не буду, потому что мы с моим другом "ZROBLENO V UKRAINI". А описание зачем? Там все по интерфейсу ясно, или нет?

[Alter]

Rootkit Unhooker и прочие несистемные утилиты смогут спокойно завершить. Видел где то код на Ассемблере, который получает список процессов на уровне ядра, и вставлет найденное в TStrings. Это про получение процессов я. на этом всё, может ещё кто посмотрит и посоветуют .

[eoln]

но для вас скажу тайный ход

Alter уже указал "тайный" ход - через контекстное меню правым кликов в таскбаре. Запрещай это

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=false
end;

А чтоб выключался комп отслеживай WM_QUERYENDSESSION

private
procedure WMQueryEndSession(
  var Message: TWMQueryEndSession);message WM_QUERYENDSESSION;

[Arigato]

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

csrss.exe это резервная копия програмы.

Это что бы через TaskManager не закрывалась?
Проще тогда в таймере искать окно диспетчера задач и редактора реестра. Как нашли - закрывать его

[RealSHELS]

Спс за все отзывы. У вас еще старая версия, там еще можно закрыть через панель задач, а в моей уже нельзя. А про поиск окна Диспетчера задач, это не то. Програма не должна мешать работе.
А что такое TASKMANAGER?

[Alter]

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

Спс за все отзывы. У вас еще старая версия, там еще можно закрыть через панель задач, а в моей уже нельзя. А про поиск окна Диспетчера задач, это не то. Програма не должна мешать работе.
А что такое TASKMANAGER?

TASKMANAGER - Диспетчер задач.
А где новая версия?