Печать текста в обход Windows

ОТкройте файл типа TextFile и пишите в него напрямую:

var
Lst: TextFile;

begin


  AssignFile(Lst, 'LPT1');
  Rewrite(Lst);
  WriteLn(Lst, 'Здравствуй, мир!');
  Close(Lst);
end.

При этом вы должны помнить, что при данной технологии вы не можете в это же время печатать из другой программы, иначе наступит конец света, а ваша распечатка будет похожа на "запутанный беспорядк".

Если вы планируете посылать на принтер управляющие коды, вызывайте следующую функцию немедленно после перезаписи файла:


procedure SetBinaryMode(var F: Text); assembler;
asm
mov ax,$4400  
les di,F  
mov bx,word ptr es:[di]  
int $21  
or dl,$20  
xor dh,dh  
mov ax,$4401  
int $21  
end;

-Steve