А вот и он: Давайте распечатаем на 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
