3785
Вгоняй в краску
Когда-то от виндового кошмара «чёрные буквы на чёрном фоне» меня спасла... программа-прикол из журнала «Хакер», переписанная мной во время знакомства с Delphi. Ключевые моменты кода внутри таймера выглядели так:
const
SysClArray: array [0..13] of integer = (Color_Activeborder, Color_Activecaption, [...], Color_Windowtext);
ColorArray: array [0..10] of TColor = (clAqua, clBlack, [...], clSkyBlue);begin
SetSysColors (1, SysClArray[random(13)], ColorArray[random(10)]);
end;
Цвет случайного элемента цветовой схемы менялся на случайный. Схема, конечно, получилась пунцовой на оранжевом, но добраться при этом до настроек проблем уже не составляло. Сложнее было найти эту программу в папке со всяким старым компилятом — в процессе я нарвался на парочку других приколов.