Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
//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 с версией скина. Так как об этой особенности нигде не написано, я сразу же написал заглушку.
Выводы делаем.
пиздишь как дышишь