Классический вопрос

← →
Ske4er © (2004-05-04 10:12) [0]

Классический вопрос на который я не нашел ответ... Как же все-таки отключить мышку, программное ессно :), в смысле чтобы система не видела ее передвижения. Смысл в других словах - не просыпалась от заставки. Нашел варианты:
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;
Отлично, работает, но отключает и клавиатуру и кнопки мыши. Как хотябы оживить клавиатуру, кнопки в принципе не очень то и нужны.. хотя... ;)

Помогите, а? :)

← →
Cobalt © (2004-05-04 11:20) [1]

Чё за цель?
"не просыпалась от заставки"???
не понял... :(((

В UBPFD есть.
http://delphibase.endimus.ru

Классический вопрос Найти похожие ветки