| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
помогите [D5, WinXP]
BAHO © (2002-03-28 21:46:00)Здрасте...
есть вопрос...
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
а можно ли вообще отрубить...
может драйвер вырубить...
(тока чтобы включить можно было)...
спасибо ... !
Севостьянов Игорь (2002-04-03 10:46:00) [1]Можно просто Hook попробовать поставить на A+C+D...
BAHO (2002-03-29 17:09:00) [2]Может кому известно подскажите...
Song (2002-03-29 07:17:00) [3]Был бы 98-ой можно через SPI_SCREENSAVERRUNNING, в XP неизвестно таких средств.
| |
