Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 844

/ вопрос открыт /

Приветствую, уважаемые эксперты!
Как отключить монитор, клавиатуру и мышь ?

ElektrinO Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: ElektrinO (статус: Посетитель)
Вопрос отправлен: 25 августа 2008, 20:07
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Мережников Андрей

Здравствуйте, ElektrinO!
winexec(Pchar('rundll32 keyboard,disable' ) ,sw_Show); Клавиатура
winexec(Pchar('rundll32 mouse,disable' ) ,sw_Show); мышь
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0); монитор

Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 25 августа 2008, 20:30

Ответ #2. Отвечает эксперт: Аксион

Здравствуйте, ElektrinO!
Отключение клавиатуры и мыши:
// используемые переменные
var
Dummy: integer = 0;
OldKbHook: HHook = 0;
implementation
function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
if code < 0 then
Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
else
Result := 1;
end;
И само выключение:
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);

Если вместо WH_KEYBOARD поставить WH_MOUSE, то можно выключать таким образом мышь .

Взято из DelphiWorld.

Ответ отправил: Аксион (статус: 4-ый класс)
Время отправки: 25 августа 2008, 20:56
Оценка за ответ: 5

Комментарий к оценке: CПС!!!!!!!!!!!!!!!!!

Мини-форум вопроса

Всего сообщений: 31; последнее сообщение — 25 августа 2008, 22:23; участников в обсуждении: 4.

Страницы: [1] [2] [Следующая »]

ElektrinO

ElektrinO (статус: Посетитель), 25 августа 2008, 20:38 [#1]:

СПС ВАМ.
ElektrinO

ElektrinO (статус: Посетитель), 25 августа 2008, 20:43 [#2]:

Мережников Андрей, чот не пашет мышь и клавиатура.
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 25 августа 2008, 20:50 [#3]:

Попробуйте так EnableHardwareInput(false) клавиатура и мышь вместе
ElektrinO

ElektrinO (статус: Посетитель), 25 августа 2008, 20:55 [#4]:

Чет это тож не пашет мож что нит uses нужен ?
Аксион

Аксион (статус: 4-ый класс), 25 августа 2008, 21:03 [#5]:

Мой то пример работает?
ElektrinO

ElektrinO (статус: Посетитель), 25 августа 2008, 21:08 [#6]:

Блазер, да работает но когда я отключаю прогу клавиша опят начинает работать! как надо сделать так чтобы отключился на всегда ? пока помп не перезагрузится .
ElektrinO

ElektrinO (статус: Посетитель), 25 августа 2008, 21:13 [#7]:

Мне как то надо сделать чтоб мышь и клавиша сдохли ! вообще неработали пока я не скажу !
Аксион

Аксион (статус: 4-ый класс), 25 августа 2008, 21:16 [#8]:

^_^ тут вирусо-писателям не помогают
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 25 августа 2008, 21:17 [#9]:

а как скажете? :-) Какую ошибку выдает на WinExec? Нужен только Windows. Сейчас проверить не могу - антивирус не дает запустить на выполнение прогу с этими примерами. Завтра попробую на другом компе, без антивируса
Аксион

Аксион (статус: 4-ый класс), 25 августа 2008, 21:17 [#10]:

Просто не выключайте программу-сделайте её невидимой.
П.с. есле помог жмите на +1 репутацию :)
Вадим К

Вадим К (статус: Академик), 25 августа 2008, 21:21 [#11]:

Отключить клавиатуру и получить по пальцам:) Люблю я камикадзе, ибо они не ведают что творят. Не надо делать людям плохо.
Ну хорошо, отрублили клаву/мышку, а человек только намерился сохранить свои наработки? В некоторых случаях можно получить по голове за такое. И правильно получите. Сам лично бы дал.
Галочка "подтверждения прочтения" - вселенское зло.
ElektrinO

ElektrinO (статус: Посетитель), 25 августа 2008, 21:22 [#12]:

Мережников Андре,
Ошибка при загрузке keyboard
Не найден указанный модуль.
ElektrinO

ElektrinO (статус: Посетитель), 25 августа 2008, 21:25 [#13]:

Вадим К, не вы меня не так поняли я вообще неделал вирусов я хочу сделать для Клубов проку когда заканчивается время он отключил мышь , клавиш и монитор после 1 мин! и всё я болте нечего нехочу !
Аксион

Аксион (статус: 4-ый класс), 25 августа 2008, 21:28 [#14]:

Зачем так жестоко? Можно ж только монитор.....
ElektrinO

ElektrinO (статус: Посетитель), 25 августа 2008, 21:33 [#15]:

Ну вы даете! я вообще нехочу делать вируссссссссссссссссссссс!!!!!!!! я на хорошие прогу хочу его исползувать !
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 25 августа 2008, 21:44 [#16]:

Подумайте над следующим - если выключить мышь и клаву, то как Вы запустите компьютер снова без Reset или вкл/выкл? Может Вам тогда просто команду на выключение компа послать, или на завершение сессии пользователя?
ElektrinO

ElektrinO (статус: Посетитель), 25 августа 2008, 21:49 [#17]:

Мережников Андрей, у меня 2 проги один сервер и клиент ! у сервера есть функсия отключение и выключение клавиш и мышь! а клиент просит исползуение этих фунцие! вот и всё что я хочу ща сделать
Вадим К

Вадим К (статус: Академик), 25 августа 2008, 21:59 [#18]:

to ElektrinO
А кто то с нас, кроме Вас, конечно говорил о вирусах? Оговорочка вышла:).
Галочка "подтверждения прочтения" - вселенское зло.
Аксион

Аксион (статус: 4-ый класс), 25 августа 2008, 22:01 [#19]:

Я...пошутил так.........
Вадим К

Вадим К (статус: Академик), 25 августа 2008, 22:02 [#20]:

Да, и пишите правильнее. Потратье пару лишних секунд и проверьте грамматику/орфографию. Вас может оправдать только если Вам меньше 10 лет и/или никогда не говорили ни на одном славянском языке.
Галочка "подтверждения прочтения" - вселенское зло.

Страницы: [1] [2] [Следующая »]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 19 октября 2017, 14:07
Выполнено за 0.04 сек.
Рейтинг@Mail.ru