VPF::Отключение скрытия - Форум программистов

Somebody32

Дата 31.12.2005, 20:27 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Народ, помогите. Делаю программу, мне нужно, чтобы форма, не главная, по срабатыванию таймера всегда была наверху и при этом полькователь вообще немог ничиге сделать с машиной определённый промежуток времени. Использовал BlockInput и отключениедиспетчера задач, через реестр. Но при нажатии на сек alt del всё равно вылетает сообщение, что дисп. задач отключён админом. После этого снимается BlockInput и прогу можно вырубить и переключаться между окнами, что есть нехорошо. Прошу помощи.

Somebody32

Дата 2.1.2006, 13:14 (ссылка)

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

Загрузка ...

Overclocker

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 2.1.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

Так, поставим вопрос подругому. Можно ли, после того, как появляется сообщение сис-мы "дисп. задач отключён админом", Вернуто обратно фокус моей форме и заблокировать клаву с мышкой?

FRAGNATIC

Дата 3.1.2006, 03:57 (ссылка)

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

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: нет
Всего: 11

вызывай BlockInput в цикле и тогда ни какой нажатие трёх клавиш не поможет)

Somebody32

Дата 4.1.2006, 01:34 (ссылка)

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

Загрузка ...

Overclocker

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 2.1.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

FRAGNATIC, мне кажется не получится. У меня это всё на таймер завязано.

Это сообщение отредактировал(а) Somebody32 - 4.1.2006, 01:40

Alexeis

Дата 4.1.2006, 12:11 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

нашел статью может поможет...

Код


{ **** UBPFD *********** by delphibase.endimus.com ****
>> Частичная блокировка/разблокировка функций клавиатуры и мышки.

Модуль mklu. Mouse and Keyboard Lock/Unlock
(c) 2002. Автор модуля VID. [email protected]

Модуль предназначен для осуществления частичной
блокировки/разблокировки функций клавиатуры и мышки.
Procedure KeyBoardOn - разблокировка (включение) клавиатуры
Procedure KeyBoardOff - блокировка (выключение) клавиатуры
Procedure MouseOn - разблокировка (включение) мышки
Procedure MouseOff - блокировка (выключение) мышки

Зависимости: windows
Автор:       VID, [email protected], ICQ:132234868, Махачкала
Copyright:   какой-то faq
Дата:        3 июня 2002 г.
***************************************************** }

unit mklu;

interface

uses
  Windows;

var
  m_OldMHook: HHook = 0;
  k_OldKBHook: HHook = 0;

function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
procedure KeyBoardOn;
procedure KeyBoardOff;
function MouseHook(code: Integer; wparam: Word; lparam: LongInt): LongInt;
  stdcall;
procedure MOUSEON;
procedure MouseOff;

implementation

function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
  if code < 0 then
    Result := CallNextHookEx(k_oldKbHook, code, wparam, lparam)
  else
    Result := 1;
end;

// включение клавы

procedure KeyBoardOn;
begin
  if k_OldKbHook <> 0 then
  begin
    UnHookWindowshookEx(k_OldKbHook);
    k_OldKbHook := 0;
  end;
end;

// выключение клавы

procedure KeyBoardOff;
begin
  k_OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
end;

function MouseHook(code: Integer; wparam: Word; lparam: LongInt): LongInt;
  stdcall;
begin
  if code < 0 then
    Result := CallNextHookEx(m_oldMHook, code, wparam, lparam)
  else
    Result := 1;
end;

// включение мышки

procedure MOUSEON;
begin
  if m_OldMHook <> 0 then
  begin
    UnHookWindowshookEx(m_OldMHook);
    m_OldMHook := 0;
  end;
end;

// выключение мышки

procedure MouseOff;
begin
  m_OldMHook := SetWindowsHookEx(WH_MOUSE, @MOUSEHook, HInstance, 0);
end;

end.
Пример использования: 

uses mklu;

{блокировка(LockIt = true) или разблокировка(LockIt= False) клавы}

procedure LockUnlockKeyboard(LockIt: Boolean);
begin
  if LockIt then
    KeyBoardOFF
  else
    KeyBoardOn;
end;

{блокировка(LockIt = true) или разблокировка(LockIt= False) мышки}

procedure LockUnlockMouse(LockIt: Boolean);
begin
  if LockIt then
    MouseOff
  else
    MouseOn;
end;

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Somebody32

Дата 4.1.2006, 17:45 (ссылка)

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

Загрузка ...

Overclocker

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 2.1.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

Всем спасибо! Я немного иначе сделал, написал приложение, которое состояло только из blockinput в цикле. Оно запускалось и выключалось по таймеру. Всё, всем спасибо.

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