Форум: "Начинающим";
Текущий архив: 2009.11.29;
Скачать: [xml.tar.bz2];

Вниз

отключить сочетание клавиш   Найти похожие ветки 

← →
123123   (2009-10-14 12:07) [0]

Здраствуйте!
Есть задача отключить сочетание клавиш "CTRL+ALT+DEL", "ALT+TAB", "CTRL+ESC", так вот во всех примерах показывается что надо включить экранную заставку:
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);
Но у меня он не включается (возвращает false), операционая система Vista, есть ли какой-нибудь другой способ?

---

← →
Инна   (2009-10-14 14:52) [1]

а зачем
если у тебя полноэкранка на директХ то там опция есть
а если скрываешся от менеджера задач, то его и так можно запустить

---

← →
DVM ©   (2009-10-14 16:45) [2]


{******************************************************************************}
{* Module:  DisableLowLevelKeys.cpp                                           *}
{* Notices: Written 2000 Jeffrey Richter                                      *}
{*                                                                            *}
{* Translated by: Dmitry Muratov                                              *}
{* 2008                                                                       *}
{******************************************************************************}

program DisableLowLevelKeys;

uses
 Windows, Messages;

const
 LLKHF_ALTDOWN  = KF_ALTDOWN shr 8;
 WH_KEYBOARD_LL = 13;

type

 TKBDLLHOOKSTRUCT = record
   vkCode: DWORD;
   scanCode: DWORD;
   flags: DWORD;
   time: DWORD;
   dwExtraInfo: DWORD;
 end;
 PKBDLLHOOKSTRUCT = ^TKBDLLHOOKSTRUCT;

var
 hhkLowLevelKybd: HHOOK;

//------------------------------------------------------------------------------

function LowLevelKeyboardProc(nCode: integer;  wParam: WPARAM;  lParam: LPARAM): LRESULT; stdcall;
var
 fEatKeystroke: boolean;
 p: PKBDLLHOOKSTRUCT;
begin
 fEatKeystroke := false;
 if nCode = HC_ACTION then
   begin
     case wParam of
       WM_KEYDOWN,
       WM_SYSKEYDOWN,
       WM_KEYUP,
       WM_SYSKEYUP:
         begin
           p := PKBDLLHOOKSTRUCT(lParam);
           fEatKeystroke := ((p^.vkCode = VK_LWIN) or (p^.vkCode = VK_RWIN)) or
                            ((p^.vkCode = VK_TAB) and ((p^.flags and LLKHF_ALTDOWN) <> 0)) or
                            ((p^.vkCode = VK_ESCAPE) and ((p^.flags and LLKHF_ALTDOWN) <> 0)) or
                            ((p^.vkCode = VK_ESCAPE) and ((GetKeyState(VK_CONTROL) and $8000) <> 0)) or
                            ((p^.vkCode = VK_F4) and ((p^.flags and LLKHF_ALTDOWN) <> 0));
         end;
     end;
   end;
 if fEatKeystroke then
   result := 1
 else
   result :=  CallNextHookEx(0, nCode, wParam, lParam);
end;

//------------------------------------------------------------------------------

begin
 // Install the low-level keyboard & mouse hooks
 hhkLowLevelKybd := SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, hInstance, 0);

 // Keep this app running until we"re told to stop
 MessageBox(0,
            PChar("Alt+Esc, Ctrl+Esc, WIN, Alt+F4, and Alt+Tab are now disabled." + #13#10 +
                  "Click "Ok" to terminate this application and re-enable these keys."),
            PChar("Disable Low-Level Keys"),
            MB_OK);

 // Remove hooks
 UnhookWindowsHookEx(hhkLowLevelKybd);
end.



---

← →
DVM ©   (2009-10-14 16:46) [3]

CAD будем считать, что не отключить. Да и незачем это.

---

← →
faiwer ©   (2009-10-14 19:32) [4]

DVM, а мож он вирусню на делфи пишет =)

---

← →
DVM ©   (2009-10-14 19:36) [5]

> faiwer ©   (14.10.09 19:32) [4]

Все вопросы к Рихтеру :)

---

← →
Инна   (2009-10-14 19:38) [6]

ну поставит он хук, и че ?
каждый антивир будет дрючить

---

← →
Германн ©   (2009-10-14 19:42) [7]

> Все вопросы к Рихтеру :)

Рихтер свою книгу по Делфи все ещё пишет :)

---

← →
Игорь Шевченко ©   (2009-10-14 19:44) [8]

> Рихтер свою книгу по Делфи все ещё пишет :)


В стол

---

← →
DVM ©   (2009-10-14 19:49) [9]

> Инна   (14.10.09 19:38) [6]


> каждый антивир будет дрючить

За хуки не дрючат :)

---

← →
Инна   (2009-10-14 20:00) [10]

> За хуки не дрючат :)

ещо как, сразу в кейлогеры попадают
а у тебя видимо аваст стоит...

---

← →
DVM ©   (2009-10-14 20:50) [11]

> Инна   (14.10.09 20:00) [10]

У меня видимо сначала стоял касперский, теперь нод32, никогда проблем с использованием ловушек не испытывал. Дрючат не за ловушки, а за деятельность, похожую на кейлоггер. Ловушка это только часть такой деятельности.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.11.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.48 MB
Время: 0.007 c