1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

блокировка мышки и клавы

Тема в разделе "Исходные коды", создана пользователем OFF, 13 дек 2012.

  1. TopicStarter Overlay
    usFire

    usFire

    Регистрация:
    20 авг 2012
    Сообщения:
    274
    Симпатии:
    177
    delit
     
    • Like Like x 1
    Метки:
  2. Enigma

    Enigma Гость

    а еще проще сделать так:

    Код:
    procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL';
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    BlockInput(True);
    sleep(10000);
    BlockInput(False);
    Application.Terminate;
    end;
    
    end.
     
  3. Viclug

    Viclug Gott mit Uns!

    Регистрация:
    22 июн 2012
    Сообщения:
    620
    Симпатии:
    468
    Говно-паскаль?
     
    • Like Like x 1
  4. fanarik

    fanarik Гость

    Код:
    library Project2;
    Uses Windows,Messages;
    Var SysHook:HHook=0;
     
    Function SysMsgProc(Code:Integer; WParam:LongInt; LParam:LongInt):LongInt; stdcall;
    Var Msg:TMessage;
    Begin
    IF Code=HC_ACTION then
    Case TMsg(Pointer(LParam)^).Message OF
    WM_RBUTTONDOWN,WM_RBUTTONUP,WM_RBUTTONDBLCLK: TMsg(Pointer(LParam)^).Message:=WM_NULL
    else Result:=CallNextHookEx(SysHook,Code,WParam,LParam);
    End;
    end;
     
    procedure Hook(Flag:Boolean); export; stdcall;
    Begin
    IF Flag then SysHook:=SetWindowsHookEx(WH_GETMESSAGE,@SysMsgProc,HInstance,0) Else
    Begin
    UnhookWindowsHookEx(SysHook);
    SysHook:=0;
    End;
    End;
     
    exports Hook;
     
    {$R *.res}
     
    begin
    end. 
     
    • Like Like x 1
  5. Fr0st

    Fr0st Петросян :)

    Регистрация:
    4 июн 2012
    Сообщения:
    61
    Симпатии:
    15
    Или можно в бат сделать :D
    Кстати в генераторе апо имеется блок клавы и мышки зачем парится)
     

Поделиться этой страницей

Загрузка...