Среда, 12.05.2021, 02:52 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
delphicode » Delphi » Вирусология Delphi » Отключение деспечера задач и alt + tab Запрет кнопки Закрыть (Читаем!)
Отключение деспечера задач и alt + tab Запрет кнопки Закрыть
cool1Дата: Пятница, 16.07.2010, 09:02 | Сообщение # 1
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
Отключение сочетания
клавиш <Ctrl>+<Alt>+<Del>
В Windows 9x это можно сделать достаточно просто с помощью следующего
кода:
var
i:integer;
begin
i := 0;
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, Si, 0);
end;

Отключение сочетания
клавиш <Alt>+<Tab>
Опять же можно привести небольшой код для Windows 9x.
var
i:integer;
begin
i := 0;
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @i, 0);
end;

Запрет кнопки Закрыть в заголовке окна
Почти в каждом окне Windows есть кнопка Закрыть — это такой крестик
в правом верхнем углу. С помощью нескольких строк кода ее легко можно
сделать недоступной.
var
SysMenu: HMenu;
begin
SysMenu := GetSystemMenu(Handle, False);
Windows.EnableMenuItem(SysMenu, SC__CLOSE, MF_DISABLED or MF_GRAYED) ;
end;

Все для блокера =)
Подробно: http://delfcode.ru/forum/10-303-1 и http://delfcode.ru/forum/10-105-1

Вот вприцине и конец!!!

ВАЖНО!
Если вам понравилась моя статья то пишите + в рейтинг! я буду этому рад =))) Вот ссыла на мой профайл http://delfcode.ru/index/8-5732



За помощь ставьте +!
 
dolphinДата: Пятница, 16.07.2010, 12:27 | Сообщение # 2
Администратор
Сообщений: 906
Статус: Offline
Хорошо, да только антивирусом палиться

Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
cool1Дата: Пятница, 16.07.2010, 12:32 | Сообщение # 3
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
ну это то да sad
но + вдруг у кагото нету антивиря! biggrin



За помощь ставьте +!
 
c14Дата: Пятница, 16.07.2010, 16:07 | Сообщение # 4
Был не раз
Зарегистрирован: 13.07.2010
Группа: Пользователи
Сообщений: 17
Статус: Offline
эвристика примитивна. я помню как то обошел ее таким способом
randomize;
if random(10000)>10 then
делаем дела
else
делаеми ТЕ ЖЕ САМЫЕ дела

проканает ли здесь хз(

 
cool1Дата: Пятница, 16.07.2010, 18:04 | Сообщение # 5
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
c14, Мне вроде кажется что это паскаль! Не так ли?
Quote

randomize;
if random(10000)>10 then
делаем дела
else

Если это паскаль то то что я писал то я писал на Delphi 7



За помощь ставьте +!
 
c14Дата: Пятница, 16.07.2010, 18:17 | Сообщение # 6
Был не раз
Зарегистрирован: 13.07.2010
Группа: Пользователи
Сообщений: 17
Статус: Offline
Quote (cool1)
c14, Мне вроде кажется что это паскаль! Не так ли?
Quote

randomize;
if random(10000)>10 then
делаем дела
else

Если это паскаль то то что я писал то я писал на Delphi 7


эм. каг бе нет.
 
cool1Дата: Пятница, 16.07.2010, 19:13 | Сообщение # 7
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
randomize;
if random(10000)>10 then
делаем дела
else
какой язык? паскаль?



За помощь ставьте +!
 
c14Дата: Пятница, 16.07.2010, 19:18 | Сообщение # 8
Был не раз
Зарегистрирован: 13.07.2010
Группа: Пользователи
Сообщений: 17
Статус: Offline
Quote (cool1)
randomize;
if random(10000)>10 then
делаем дела
else
какой язык? паскаль?

о м г
biggrin
 
BioHEXДата: Вторник, 27.07.2010, 18:33 | Сообщение # 9
Был не раз
Зарегистрирован: 27.07.2010
Группа: Пользователи
Сообщений: 17
Статус: Offline
Мда... Уважаемые программисты, 2010 год на дворе, а вы пишите про Win9x...
Хочешь чтоб твое окно не закрыли, не свернули, не переместили и всяких гадостей не наделали? Переопредели оконную процедуру на свою. В ней обрабатывай сообщения Windows, например сообщение WM_DESTROY посылается окну для закрытия.

Не хочешь чтоб глупый юзер мог работать с клавиатурой напиши dll которая будет обрабатывать сообщения от клавиатуры.
Учите WinAPI!!! Не зная принципов работы Windows написать что-то сложнее HelloWorld будет сложно biggrin

 
delphicode » Delphi » Вирусология Delphi » Отключение деспечера задач и alt + tab Запрет кнопки Закрыть (Читаем!)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2021 Хостинг от uCoz