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

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