Mega Code Archive
Detect press key serialization like used to display easter egg
<![CDATA[
Title: detect press key serialization like used to display easter egg?
{
Copyright(C) 2003, Kingron
When open Delphi About dialog, press Alt + JEDI, Delphi will show
an easter egg~~, the following code show how to do it... :-)
}
use Menus;
var
CharBuf: array [1..7] of Word;
const
/// ALT + KINGRON
Keys: array[1..7] of Word = (32843, 32841, 32846, 32839, 32850, 32847, 32846);
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i: Integer;
begin
for i := Low(CharBuf) to High(Charbuf) - 1 do
CharBuf[i] := Charbuf[i + 1];
CharBuf[High(CharBuf)] := ShortCut(Key, Shift);
if CompareMem(@CharBuf[1], @Keys[1], SizeOf(Keys)) then ShowMessage('OK!');
end;
]]>