Текущий архив: 2002.05.23;
Скачать: CL | DM;

Вниз

Сложный вопрос...   Найти похожие ветки 

← →
BAHO ©   (2002-02-24 07:10) [0]

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

---

← →
Tosov ©   (2002-02-24 17:23) [1]

Методом выдергивания провода :) иначе практически никак.

---

← →
Anonymous   (2002-02-25 01:33) [2]

Да ладно - никак. Делаешь фильтр-драйвер для того и для другого. Примеры есть в DDK. Только это уже не Delphi.

---

← →
Севостьянов Игорь ©   (2002-02-26 12:09) [3]

>>Anonymous сам ты фильтр...

Вот простейшее решение опробовано под Win2000

{Button1 on Form1 - disable mouse and
keyboard for 5 seconds}

procedure TForm1.Button1Click(Sender: TObject);

function FuncAvail
(_dllname, _funcname: string; var _p: pointer):
boolean;
var _lib: tHandle;
begin
Result := false;
_p := NIL;
if LoadLibrary(PChar(_dllname)) = 0 then exit;
_lib := GetModuleHandle(PChar(_dllname));
if _lib <> 0 then
begin
_p := GetProcAddress(_lib, PChar(_funcname));
if _p <> NIL then Result := true;
end;
end;


var
xBlockInput : function(Block: BOOL):
BOOL; stdcall;

begin
if FuncAvail
("USER32.DLL", "BlockInput", @xBlockInput) then
begin
xBlockInput(true);
Sleep(5000);
xBlockInput(false);
end;
end;

---

← →
VuDZ ©   (2002-02-26 13:38) [4]

The system will unblock input in the following cases:

The thread that blocked input unexpectedly exits without calling BlockInput with fBlock set to FALSE. In this case, the system cleans up properly and re-enables input.
Windows 95/98/Me: The system displays the Close Program/Fault dialog box. This can occur if the thread faults or if the user presses CTRL+ALT+DEL.
Windows 2000 or later: The user presses CTRL+ALT+DEL or the system invokes the Hard System Error modal message box (for example, when a program faults or a device fails).

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c