1. Pascal / Говнокод #13219

    +128

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    // используемые переменные
 var
   Dummy: integer = 0;
   OldKbHook: HHook = 0;

 implementation

 function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
 begin
   if code < 0 then
     Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
   else
     Result := 1;
 end;

// включение клавы

 procedure TForm1.KeyBoardOn(Sender: TObject);
 begin
   if OldKbHook <> 0 then
   begin
     UnHookWindowshookEx(OldKbHook);
     OldKbHook := 0;
   end;
   SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, 0, 0);
   SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
 end;

 // выключение клавы

 procedure TForm1.KeyBoardOff(Sender: TObject);
 begin
   SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
   SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
   OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
 end;

    Попытка вырубить клаву, сев на нее.

    Запостил: Stertor, 23 Июня 2013

    Комментарии (12) RSS

    • ava tirinox 23.06.2013 19:12 # +1

      А в паскале комментарии двумя слэшами? Я отстал :) В школе мы фигурные скобки писали.
      Ответить

      • ava bormand 23.06.2013 19:13 # +2

        > А в паскале комментарии двумя слэшами?
        > В школе мы фигурные скобки писали.
        В делфи можно и так и так.
        Ответить

      • ava Stertor 26.06.2013 15:25 # −4

        Где ты тут видишь паскаль?
        Ответить

        • ava tirinox 26.06.2013 15:30 # 0

          Here
          >> Pascal / Говнокод #13219 <<
          Ответить

          • ava Stertor 26.06.2013 15:33 # −4

            Это тебя обманули, сынок. Козьму Пруткова читал? "Не верь глазам своим..."
            Ответить

    • ava Stertor 26.06.2013 17:06 # −4

      Хочу предупредить всех, просматривающих форум: НЕ регистрируйтесь с Вашей основной почты!!!!
      Ответить

    Добавить комментарий