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

    −144

    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
    //AntiAcver должен быть первым юнитом в главной форме.
    //Сергей, Вы любезный человек. Надеюсь, Вы не обидитесь.
    
    unit AntiAcver;
    
    interface
    uses Windows, SysUtils;
    
    procedure CheckParam;
    
    implementation
    
    procedure CheckParam;
    var
      S:string;
    begin
    if paramstr(1) <> '' then
    begin
      S:=Copy(ParamStr(1),2,2);
      if SameText(S,'AC') then
      MessageBox(0, PChar(Format('Что-то я не припомню, чтобы добавлял ключ ''%s' в свой код'.',[ParamStr(1)])), PChar('Че за хуйня'),16);
      ExitProcess(0);
    end;
    end;
    
    initialization
    CheckParam;
    
    finalization
    
    
    end.

    Заглушка для недокументированных ключей AlphaSkins (alphaskins.com).

    Преамбула.
    Увлекся скинизацией, скачал скины, поставил. Оказалось, что альфаскин добавляет в прогу несколько обработчиков, в частности, ключа "/acver" - выводит messagebox с версией скина. Так как об этой особенности нигде не написано, я сразу же написал заглушку.

    Запостил: voodoodal16, 05 Октября 2016

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

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