Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   

Установка режима бинарного файла

Автор: Steve

Попробуйте вызвать приведенную ниже процедуру немедленно после перезаписи выходного файла и перед началом записи в него:


procedure SetBinaryMode(var F: file); 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;

           


Готовь календари летом - календарные блоки. . Ремонт компьютеров на дому в бескудниково. Низкие цены. Бескудниково ремонт компьютеров. Дешево. . Компания объявляет тендер. СУ-155 объявляет тендер. . котел твердотопливный .


Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011