Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

Delphi 1

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

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

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;

-Steve [000603]

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК