|
Вопрос # 1 844/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Как отключить монитор, клавиатуру и мышь ?
 |
Вопрос задал: 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 (статус: Посетитель), 25 августа 2008, 20:38 [#1]:
СПС ВАМ.
|
|
|
ElektrinO (статус: Посетитель), 25 августа 2008, 20:43 [#2]:
Мережников Андрей, чот не пашет мышь и клавиатура.
|
|
|
Мережников Андрей (статус: Абитуриент), 25 августа 2008, 20:50 [#3]:
Попробуйте так EnableHardwareInput(false) клавиатура и мышь вместе
|
|
|
ElektrinO (статус: Посетитель), 25 августа 2008, 20:55 [#4]:
Чет это тож не пашет мож что нит uses нужен ?
|
|
|
Аксион (статус: 4-ый класс), 25 августа 2008, 21:03 [#5]:
Мой то пример работает?
|
|
|
ElektrinO (статус: Посетитель), 25 августа 2008, 21:08 [#6]:
Блазер, да работает но когда я отключаю прогу клавиша опят начинает работать! как надо сделать так чтобы отключился на всегда ? пока помп не перезагрузится .
|
|
|
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 (статус: Посетитель), 25 августа 2008, 21:22 [#12]:
Мережников Андре,
Ошибка при загрузке keyboard
Не найден указанный модуль.
|
|
|
ElektrinO (статус: Посетитель), 25 августа 2008, 21:25 [#13]:
Вадим К, не вы меня не так поняли я вообще неделал вирусов я хочу сделать для Клубов проку когда заканчивается время он отключил мышь , клавиш и монитор после 1 мин! и всё я болте нечего нехочу !
|
|
|
Аксион (статус: 4-ый класс), 25 августа 2008, 21:28 [#14]:
Зачем так жестоко? Можно ж только монитор.....
|
|
|
ElektrinO (статус: Посетитель), 25 августа 2008, 21:33 [#15]:
Ну вы даете! я вообще нехочу делать вируссссссссссссссссссссс!!!!!!!! я на хорошие прогу хочу его исползувать !
|
|
|
Мережников Андрей (статус: Абитуриент), 25 августа 2008, 21:44 [#16]:
Подумайте над следующим - если выключить мышь и клаву, то как Вы запустите компьютер снова без Reset или вкл/выкл? Может Вам тогда просто команду на выключение компа послать, или на завершение сессии пользователя?
|
|
|
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] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
