[жекаизжека]

Как можно скрыть это сочетания клавишь например Alt+Tab , Alt+F4, Ctrl+Alt+Del и прочее

[kda6666]

ctrl+alt+del можно забить след образом:
по таймеру с малым интервалом срабатывает поиск окон с заголовком
"Диспетчер задач" и если такое окно найдено, закрывать его.
:-d

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var myHWND:HWND;
begin
myHWND:=FindWindow(nil,"Диспетчер задач Windows');
if myHWND<>0 then
  PostMessage(myHWND, WM_QUIT, 0, 0);
end;

у меня работало.

с alt+f4 и alt+tab посложнее, сам с этим пока борюсь

[cotseec]

посмотри вот тут Ctrl-Alt-Del или тут Disable CTRL+ALT+DELETE under XP или вот тут ctr+alt+del
про другие сочетания - пока не сталкивался

З.Ы. код по первой ссылке у меня не сработал

[Sharky]

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

ctrl+alt+del можно забить след образом:
по таймеру с малым интервалом срабатывает поиск окон с заголовком
"Диспетчер задач" и если такое окно найдено, закрывать его.
:-d

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var myHWND:HWND;
begin
myHWND:=FindWindow(nil,"Диспетчер задач Windows');
if myHWND<>0 then
  PostMessage(myHWND, WM_QUIT, 0, 0);
end;

у меня работало.

с alt+f4 и alt+tab посложнее, сам с этим пока борюсь

нужно отключить его на совсем а не закрывать ну вот например так делает программа процесс эксплорер

[Winny]

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

ctrl+alt+del можно забить след образом:
по таймеру с малым интервалом срабатывает поиск окон с заголовком
"Диспетчер задач" и если такое окно найдено, закрывать его.
:-d

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var myHWND:HWND;
begin
myHWND:=FindWindow(nil,"Диспетчер задач Windows');
if myHWND<>0 then
  PostMessage(myHWND, WM_QUIT, 0, 0);
end;

у меня работало.

с alt+f4 и alt+tab посложнее, сам с этим пока борюсь

Твой код будет работать только на русской версии Windows.

[artzub]

Тот кто начал тему явно пишет вирус!

[Akzes]

почему вирус???
я писал систему тестирования там требовалась блокировка Windows для того чтобы тестируемые не могли пользоваться инетом и прочими там источниками информации...
я использовал компонент dWinlock

[AlexTheC0d3r]

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

нужно отключить его на совсем а не закрывать ну вот например так делает программа процесс эксплорер

обратно включить его намного проще, чем бороться с его постоянным выключением

также можно отслеживать нажатия клавиш и десэйблить их

[The King Bear]

Можно написать приложение сервисом и, alt+f4, alt+tab бутут нестрашны....

[Рудольф]

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

ctrl+alt+del можно забить след образом:
по таймеру с малым интервалом срабатывает поиск окон с заголовком
"Диспетчер задач" и если такое окно найдено, закрывать его.
:-d

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var myHWND:HWND;
begin
myHWND:=FindWindow(nil,"Диспетчер задач Windows');
if myHWND<>0 then
  PostMessage(myHWND, WM_QUIT, 0, 0);
end;

у меня работало.

с alt+f4 и alt+tab посложнее, сам с этим пока борюсь

Во первых не " а ' (FindWindow(nil,"Диспетчер задач Windows')), а во вторых неэкономично, легче просто отключить, а ещё легче повесить программу на системный файл(например lsass.exe и др.). Вот только непонятно нафиг отключать Alt+Tab(допустим в диспечере что-бы не было неправильного отключения ), но Alt+Tab и т.д. тебе чем мешает?

[M.A.D.M.A.N.]

От Alt + F4 в событии OnCloseQuery параметр CanClose поставить в ложь.

[Casper-Hacker]

Люди что вы бред несете ... ставишь хук... На дс в исходниках есть... и отлавливаешь alt + f4 и присваиваемый им пустоту
Если надо пиши в лс пришлю хук...

[Death]

я немного опоздал __ ГЫ-ГЫ, но всё же........

А по-моему тут ещё проще установить политики реестра, которые блокируют некоторые стандартные средства...
НЕ ПОВЕРЮ, ЕСЛИ СКАЖЕТЕ, ЧТО НЕ ЗНАЕТЕ СЛЕДУЮЩЕЕ:
1. "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System" - в этом ключе значение "DisableTaskMgr" присвоить "1", и всё... диспетчер при запуске проверит ключ, если там "DisableTaskMgr" = 1, то он скажет "Диспетчер задач заблокирован Администратором", и отключится....
2. "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System" - в этом ключе "DisableRegistryTools" отключает стандартный редактор реестра...

Таких запретов я нашёл целыми страницами... этих политик тысячи, если я не ошибаюсь... как-то раз я нашёл их на каком-то форуме, и сохранил... но потерял. Обидно, теперь по всему иннету не могу их найти...

Нестандартные средства можно так убить, по-моему: отлавливать их по ЕХЕ-шникам и процессам... добиваться максимума информации о них, которую вы знаете, и сравнивать, подходит ли какой-либо найденный процесс?

[Luzer]

Согласен через реестр проще!

[Zver3311]

люди скажите новичку как вкл TaskMgr