VPF::Перехват или просто... - Форум программистов

NewDima

Дата 26.2.2006, 02:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

Репутация: 2
Всего: 12

Есть такие проги, тестеры. Вот они при нажатии ALT+CTRL+Del переключают фокус на себя ине мучатся. Как быть мне, чтобы юзак ни как не мог получить доступ к раб. столу и тд нажатием ALT+CTRL+Del или ALT+Tab или еще каких-нить кл. Только выполнив условия проги.

--------------------

Начинаем черкать!

Poseidon

Дата 26.2.2006, 03:07 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Нажно ставить глобальный хук

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

var
  hHook: THandle;

{$R *.dfm}

function GlobalHook(nCode: Integer;
  WParam: WPARAM; LParam: LPARAM): LRESULT stdcall;
var
i: integer;
begin
//if WParam = WM_KEYDOWN then exit;
  if nCode = HC_ACTION then
    Result := CallNextHookEx(hHook, nCode, WParam, LParam);

If ((GetKeyState(VK_CONTROL) AND 128)=128) and
((GetKeyState(VK_MENU) AND 128)=128) and
((GetKeyState(46)  AND 128)=128)
then // что нужно делать когда нажаты клавиши
end;

procedure TForm1.FormCreate(Sender: TObject);
const
  WH_KEYBOARD_LL = 13;
begin
  hHook := SetWindowsHookEx(WH_KEYBOARD_LL, GlobalHook, hInstance, 0);
  if hHook = 0 then RaiseLastOSError;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if not UnhookWindowsHookEx(hHook) then RaiseLastOSError;
end;

end.

Писалось на коленке, поэтому могут быть очепятки

Это сообщение отредактировал(а) Poseidon - 26.2.2006, 03:24

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

bems

Дата 26.2.2006, 17:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(Poseidon @ 26.2.2006, 03:07

)

Нажно ставить глобальный хук

да ты че? Конечно не заработает!

--------------------

Обижено школьников: 8

bems

Дата 26.2.2006, 18:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата

When Winlogon initializes, it registers the CTRL+ALT+DEL secure attention sequence (SAS) with the system, and then creates three desktops within the WinSta0 window station.

Registering CTRL+ALT+DEL makes this initialization the first process, thus ensuring that no other application has hooked that key sequence.

--------------------

Обижено школьников: 8

Quadr0

Дата 26.2.2006, 21:22 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 10:09

NewDima

Дата 27.2.2006, 01:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

Репутация: 2
Всего: 12

Ну и что, вы тоько полную блокеровку рассматриваете клавишь, а если реально на себя каждый раз фокус переключать, то мона или не мона?

--------------------

Начинаем черкать!

Quadr0

Дата 27.2.2006, 01:35 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 10:33

NewDima

Дата 27.2.2006, 02:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

Репутация: 2
Всего: 12

Извини, не заметил.
Спасибо за текст

--------------------

Начинаем черкать!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »