Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 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.007 c
1-73240
Garry
2002-05-10 10:35
2002.05.23
Как отобразить сообщение при наведении мыши на объект?


3-73021
nobody2002
2002-04-26 10:37
2002.05.23
TAdoQuery: две таблицы в одном запросе


14-73357
greenrul
2002-04-13 17:27
2002.05.23
Помогите перевести текстовичок маленький


14-73353
LazorenkoX
2002-04-11 16:58
2002.05.23
DelphiX


14-73400
JMax
2002-04-11 06:39
2002.05.23
RXLib





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский