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

Вниз

помогите   Найти похожие ветки 

 
BAHO ©   (2002-03-28 21:46) [0]

Здрасте...
есть вопрос...
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;


При выключении клавы и крыса
их можно и включить нажав Ctrl+Alt+Del
а можно ли вообще отрубить...
может драйвер вырубить...
(тока чтобы включить можно было)...
спасибо ... !


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

Был бы 98-ой можно через SPI_SCREENSAVERRUNNING, в XP неизвестно таких средств.


 
BAHO ©   (2002-03-29 17:09) [2]

Может кому известно подскажите...


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

Можно просто Hook попробовать поставить на A+C+D...



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
1-942
Янушка
2002-06-17 18:01
2002.07.01
Динамическое изменение положения label


3-921
Tahion
2002-06-06 20:04
2002.07.01
Как сделать просмотр QuickRep (3.0)(не исп. стандартный preview)?


1-1088
volph
2002-06-19 12:15
2002.07.01
как в ReachEdit разукрасить строки, сделать жирным?


1-1018
Lizard
2002-06-17 22:18
2002.07.01
Как из Listbox двойным нажатием на item удалить ее из


14-1153
Awex
2002-05-29 11:12
2002.07.01
Занимательные задачки