Нас ребут, а мы крепчаем!

AvaLANche (kolyan@rnc.ru)

Спецвыпуск Хакер, номер #004, стр. 004-114-2

if (ReallyClose) then

Action := caFree

else Action := caNone;

Этот код не будет позволять окну нашего шатдаунера закрываться, пока переменная ReallyClose равна false. А зачем она нужна? Дык надо оставить какой-нибудь бекдор, чтобы самому прогу можно было тормознуть! Помнишь, я говорил, что лейбл пригодится? Время обратиться к этому title`у! Опять тыкаешь два раза крысиной пимпой, но только уже по нему. В появившемся окне с сорцами пишем (внутри функции TitleClick!):

Want2SwitchOff := Want2SwitchOff + 1;

if (Want2SwitchOff = 5) then

begin

ReallyClose := true;

SuperForm.Close();

end;

Что это такое? Ни что иное, как закрывашка (типа открывашки для пива, только наоборот)! Объясняю: после каждого клика по label`у переменная Want2SwitchOff будет увеличиваться на один. Если она станет равной пяти, прога вырубается! Все просто. :)

Да будет свет!

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

progress := progress + 1;

if (progress

ttfb: 2.1829605102539 ms