Пасхальные яйца

Пасхальные яйца - скрытые ресурсы программных продуктов, были придуманы самими разработчиками, что бы хранить информацию о себе. Позднее пасхальные яйца стали использовать для мини игр и веселых роликов. Первые пасхальные яйца появились вместе с первыми программными продуктами, ориентированными на массового пользователя. Большой вклад в развитие и распространение пасхальных яиц внесла компания Microsoft, во всех версиях Windows и офисных продуктах есть хотя бы одно, а иногда и несколько яиц, содержащих в себе видео ролики со списком пользователей и мини игры. Чтобы увидеть пасхальное яйцо, пользователь должен знать специальную команду или последовательность действий. Например: кликнуть двумя кнопками мышки в определенном участке окна программы или отредактировать определенный текст. В общем, пасхальные яйца являются недокументированными возможностями, скрытыми внутри программы. Часто пасхальные яйца открывают возможность доступа к скрытым настройкам программы, в которые обычному пользователю не попасть. Ниже приведенный код, показывающий секретное сообщение, подходит для любых типов пасхальных яиц.

• Выберем форму, которая будет использоваться для запуска яйца.
  Объявим переменную целого типа:
  
  

• Объьявим константы:
  

• Добавляем событие OnCreate:
  

procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True;
summkey:=1;
end;

• Добавим событие OnKeyDown:
  

procedure TForm1.key
(Sender: TObject;var Key: Word;
Shift: TShiftState);
begin
if ssCtrl in Shift then begin
if Key = Ord(kodEgg[summkey]) then
begin
if summkey = LenEgg then
begin
ShowMessage('Здесь пасхальное яйцо!');
summkey := 1; 
end
else
begin
summkey := summkey + 1;
end;
end
else
begin
summkey := 1; 
end;
end;
end;

          

Все переменные описаны выше. В событии OnKeyDown идет проверка нажатия клавиши CTRL, если она нажата, то проверяются все последующие нажатые клавиши, если набранная комбинация соответствует ключевому слову, то на экране вылезет пасхальное яйцо. В качестве яйца можно вставить видео ролик, мини игру, в общем, все что угодно.