Скачать: CL | DM;

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

← →
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]

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

---

← →
VID ©   (2004-05-04 11:39) [2]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c