Пятница, 29.03.2024, 05:17 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
delphicode » Delphi » Вирусология Delphi » Выложите Вирус-прикол для принтера
Выложите Вирус-прикол для принтера
Marra_KeshДата: Пятница, 05.02.2010, 17:16 | Сообщение # 1
Постоянный
Зарегистрирован: 19.12.2009
Группа: Модераторы
Сообщений: 182
Статус: Offline
Выложите кто-нибуть вирус-прикол для принтера. Суть: Документ который надо распечатать сначала нормального вида и в предварительном просмотре тоже, Но при нажатии на печать из принтера будет выходить документ+разные левые слова(например матт)!!!

Заведующий палатой #6
 
cool1Дата: Четверг, 15.07.2010, 15:25 | Сообщение # 2
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
А вот и он:

Давайте распечатаем на DELPHI пустой лист бумаги, напугав хозяина и заставив переустановить драйвер принтера!
В главном меню Project выберите View Source и в появившемся окне пропишите этот код:

program Project1;
uses
Printers, Windows; // добавляем модуль для работы с принтером
var
f: TextFile; // переменная для печати текста
begin
while true do // запускаем бесконечный цикл
begin
Sleep(120000); // ждем 2 минуты
AssignPrn(f); // открываем принтер в режиме текстовой печати
Rewrite(f); // открываем файл печати
CloseFile(f); // закрываем файл печати
end;
end.

В начале мы добавляем модуль для печати Printers там есть все для печати. Потом описываем переменную f типа TextFile. Затем мы запускем бесконечный цикл, в котором ждём 2 минуты, потом открываем принтер методом AssignPrn ему нужно передать переменную типа TextFile. Теперь нашей переменной назначен принтер по умолчанию. Процедурой Rewrite открывем файл печати, это и есть начало печати.
Гы...вот и всё!!!

ВАЖНО!
Если вам понравилась моя статья то пишите + в рейтинг! я буду этому рад =))) Вот ссыла на мой профайл http://delfcode.ru/index/8-5732



За помощь ставьте +!
 
delphicode » Delphi » Вирусология Delphi » Выложите Вирус-прикол для принтера
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz