Hi!

Подскажите пожалуйста, как отключть мышку и клавиатуру, но так чтобы их потом можно было бы включить.

Спасибо.

Система какая?

Цитата(December @ 4.2.2003, 19:52)

Система какая?

Windows ME
Но вообще нжно под все платформы

Если 98, то EnableHardwareInput, если НТ - то фиг.

Могу предложить вариант для НТ, который держит всё, кроме Ctrl-Alt-Del.

Подробнее пожалуйста.

Ок, хотелось бы ещё увидеть кусочек кода с использованеем этой штуки...
заранее благодарен

Цитата(December @ 4.2.2003, 19:00)

Могу предложить вариант для НТ, который держит всё, кроме Ctrl-Alt-Del.

На XP ещё в дополнение невозможно перехватить Win-L

Цитата(Vit @ 5.2.2003, 00:07)

На XP ещё в дополнение невозможно перехватить Win-L

Про этого зверя я вообще не слышал. Что он делает? (Под ХР никогда не работал).

Цитата

Ок, хотелось бы ещё увидеть кусочек кода с использованеем этой штуки... заранее благодарен

Давай мыло, я тебе вышлю исходники, они 10-20 строк длиной.

EnableHardwareInput(Enable:boolean): boolean;
Enable - требуемое состояние устройств ввода (True - включены, false - выключены). Если ввод заблокирован, то его можно разблокировать вручную - нажать Ctrl + Alt + Del, при появлении меню "Завершение работы программы" ввод разблокируется.

[email protected]

2December ты бы на всеобщее обозрение этот код запостил бы..... пусть и другие люди посмотрят..... авось и в FAQ это можно внести....

Заранее благодарен!

Мне бы пожалуйста чтобы разблокировать не вручную, а тоже програмно

А, чёрт, именно отрубления я так и не сделал, только блокировку работы с компьютером. Функция EnableHardwareInput отсутствует в ДЛЛ-ках, она есть только в USER.EXE. Как её оттуда вытаскивать разобраться не было времени (если кто знает, расскажите), так что я обходился подручными средствами.

Для НТ:
.DPR

ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle or WS_EX_TOOLWINDOW);
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
Application.CreateForm(TForm1, Form1);
Application.Run;
ShowWindow(hTaskBar, SW_SHOWNORMAL);



.PAS
var
Form1: TForm1;
TextBuf:array [1..10] of word;
hTaskBar : THandle;
implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i:integer;
wstr:string;
begin
if key=VK_ESCAPE then exit;
for i:=1 to 9 do TextBuf[i]:=TextBuf[i+1];
TextBuf[10]:=key;
wstr:='';
for i:=1 to 10 do wstr:=wstr+char(textBuf[i]);
if wstr='STUPID BUG' then application.Terminate;
if (ssAlt in Shift) then Key := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_ESCAPE,0,0,0);
keybd_event(VK_ESCAPE,0,KEYEVENTF_KEYUP,0);
end;

Для 98:


.DPR

ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle or WS_EX_TOOLWINDOW);
Application.CreateForm(TForm1, Form1);
RegisterServiceProcess(GetCurrentProcessID, 1);
FreezeMeansStop;
Application.Run;




.PAS

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
procedure FreezeMeansStop;

var
Form1: TForm1;
TextBuf:array [1..10] of word;

implementation

{$R *.dfm}

procedure FreezeMeansStop;
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
end;{FreezeMeansStop}


procedure Revive;
var
hTaskBar : THandle;
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
end;{Revive}


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i:integer;
wstr:string;
begin
for i:=1 to 9 do TextBuf[i]:=TextBuf[i+1];
TextBuf[10]:=key;
wstr:='';
for i:=1 to 10 do wstr:=wstr+char(textBuf[i]);
if wstr='STUPID BUG' then
begin
application.Terminate;
Revive;
end;{if over}

if (Key = VK_F4) and (ssAlt in Shift) then Key := 0;
end;

Это сообщение отредактировал(а) December - 5.2.2003, 09:12

Цитата

Для 98: .DPR ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE); SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle or WS_EX_TOOLWINDOW); Application.CreateForm(TForm1, Form1); RegisterServiceProcess(GetCurrentProcessID, 1); FreezeMeansStop; Application.Run; .PAS function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL'; procedure FreezeMeansStop; var Form1: TForm1; TextBuf:array [1..10] of word; implementation {$R *.dfm} procedure FreezeMeansStop; var hTaskBar : THandle; begin hTaskbar := FindWindow('Shell_TrayWnd', Nil); ShowWindow(hTaskBar, SW_HIDE); SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0); SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0); end;{FreezeMeansStop} procedure Revive; var hTaskBar : THandle; begin SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1); hTaskbar := FindWindow('Shell_TrayWnd', Nil); ShowWindow(hTaskBar, SW_SHOWNORMAL); SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0); end;{Revive} procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var i:integer; wstr:string; begin for i:=1 to 9 do TextBuf[i]:=TextBuf[i+1]; TextBuf[10]:=key; wstr:=''; for i:=1 to 10 do wstr:=wstr+char(textBuf[i]); if wstr='STUPID BUG' then begin application.Terminate; Revive; end;{if over} if (Key = VK_F4) and (ssAlt in Shift) then Key := 0; end;

Сложно както очень.

WinExec('rundll mouse,disable',0);
WinExec('rundll keyboard,disable',0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);

WinExec('rundll mouse,enable',0);
WinExec('rundll keyboard,enable',0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);

Цитата(Pegas @ 5.2.2003, 05:21)

2December ты бы на всеобщее обозрение этот код запостил бы..... пусть и другие люди посмотрят..... авось и в FAQ это можно внести.... Заранее благодарен!

Я где-то писала код на этом форуме, который создает низкоуровневый hook на клавиатуру, в котором можно перехватить и обработать любые клавиши, кроме CTRL+ALT+DEL.

Спасибо. Попробую на счет EnableHardwareInput:

uses ShellApi;
...
...
...
ShellExecute(Application.MainForm.Handle,PChar('open'),
'c:\windows\user.exe','EnableHardwareInput,enabled',nil,SW_ShowNormal)
.... disabled
...

А как начет Ctrl+Alt+delete

Вообще как нибудь реально?

78125, реально. Для Win2000 надо подменить стандартную gina.dll на свою. Именно там обрабатывается CTRL+ALT+DEL.... ну или написать свой драйвер клавиатуры... :-)

Цитата(Dayana @ 5.2.2003, 21:03)

Цитата(Pegas @ 5.2.2003, 05:21) 2December ты бы на всеобщее обозрение этот код запостил бы..... пусть и другие люди посмотрят..... авось и в FAQ это можно внести.... Заранее благодарен! Я где-то писала код на этом форуме, который создает низкоуровневый hook на клавиатуру, в котором можно перехватить и обработать любые клавиши, кроме CTRL+ALT+DEL.

А где собственно говоря ссылка?

Вот... :-)
Hook
... последнее мое сообщение в теме...

Спасибо Dayana

Цитата

ну или написать свой драйвер клавиатуры... :-)

Если уж писать драйвер, так проще в нем функции стандартного драйвера клавы юзать

Всем спасибо за помощь

Цитата

uses ShellApi; ... ... ... ShellExecute(Application.MainForm.Handle,PChar('open'), 'c:\windows\user.exe','EnableHardwareInput,enabled',nil,SW_ShowNormal) .... disabled ...

Так вызываются все функции из юзер.ехе? Есть по ним справка какая-нибудь?

Цитата(Dayana @ 5.2.2003, 15:05)

78125, реально. Для Win2000 надо подменить стандартную gina.dll на свою. Именно там обрабатывается CTRL+ALT+DEL.... ну или написать свой драйвер клавиатуры... :-)

Кто-нибудь этим уже занимался? Если да, поделитесь, плз, достижениями.

December, я не занималась, но видела в сети много инфы про GINA. Описание.
Также скачивала такую ginu. Но, к сожалению, не помню откуда. Если надо, сегодня поищу дома...

Вот ТУТ еще чтото про GINA

Большое спасибо.
Dayana Думаю, смогу найти сам, если нет, то ещё побеспокою.

Эй а в FAQ'е слабо посмотреть. Лично писал.

EnableHardwareInput() - давно устарела и испоользовалась только в Win16.
В Win32 используется замена - BlockInput() - живёт в user32.dll
Ctrl-Alt-Del можно заблокировать ТОЛЬКО через драйвер клавиатуры. А что до gina.dll ... все про неё говорят, но никто не может привести решения или хотя бы названия процедур из gina.dll, с помощью которых можно заблокировать CAD. Также системную надо ещё и своей подменить. Так что не надо про gin'у если сами того не делали.