Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.08;
Скачать: CL | DM;

Вниз

Блокировка клавы   Найти похожие ветки 

 
ray_wagner ©   (2002-03-28 23:09) [0]

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


 
Song ©   (2002-03-29 07:12) [1]

BlockInput


 
kull ©   (2002-03-29 11:10) [2]

Меня всегда интересовал вопрос - А зачем это надо?


 
SerVS - S   (2002-03-29 14:13) [3]

Ты вообще искать пытался?! Я сегодня отвечал на этот же вопрос, в этом же разделе!


 
Севостьянов Игорь ©   (2002-04-03 10:44) [4]

Ладно ответим в очередной раз - раз у меня наконец время есть...

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); // ждем 5 секунд
xBlockInput(false); // разблокировка
end;
end;



 
ALFA   (2002-04-16 19:54) [5]

EnableWindow(Handle,False); - отключить
EnableWindow(Handle,True); -включить



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
7-23805
JohnKorsh
2002-04-10 08:10
2002.07.08
Работа с последовательными портами.


6-23722
slabur
2002-04-26 14:19
2002.07.08
Как проверить URL (работает или отсутствует)?


4-23823
AlexanderSK
2002-05-06 12:27
2002.07.08
GetVolumeInformation


14-23753
Angels
2002-06-06 14:14
2002.07.08
Что делать, если кто-то разослал спам с рекламой моего сайта?


4-23849
xrip
2002-05-09 01:38
2002.07.08
Перехват кнопок из чужой программы или глобально.