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;