| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Классический вопрос [D7, WinXP]
Ske4er © (2004-05-04 10:12:00)Классический вопрос на который я не нашел ответ... Как же все-таки отключить мышку, программное ессно :), в смысле чтобы система не видела ее передвижения. Смысл в других словах - не просыпалась от заставки. Нашел варианты:
1) ClipCursor - даже размером в 1 пиксел - просыпается.
2) rundll32 mouse,disable - не работает в ВинХП, да и включить после таково обратно нельзя...
3) 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;
Отлично, работает, но отключает и клавиатуру и кнопки мыши. Как хотябы оживить клавиатуру, кнопки в принципе не очень то и нужны.. хотя... ;)
Помогите, а? :)
VID (2004-05-04 11:39:00) [1]В UBPFD есть.
http://delphibase.endimus.ru
Cobalt (2004-05-04 11:20:00) [2]Чё за цель?
"не просыпалась от заставки"???
не понял... :(((
| |
