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

Previous  Top  Next

    
 

 

 

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

Code:

var

Lst: TextFile;

 

begin

AssignFile(Lst, 'LPT1');

Rewrite(Lst);

WriteLn(Lst, 'Здравствуй, мир!');

Close(Lst);

end.

 

 

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

 

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

 

Code:

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

©Drkb::03249

Взято из Советов по Delphi от Валентина Озерова

Сборник Kuliba