Форум: "Система";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];
ВнизСложный вопрос... Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c