Скачать Как определить, переназначен ли вывод

30.11.1994
Скачать файл (649,00 Б)

Можно воспользоваться следующей функцией:

Function Redirected(var F:Text):Boolean;assembler;
asm
        LES DI,F
        POP     DI
        POP     ES
        MOV     BX,ES:[DI]
        MOV     AX,4400H
        INT     21H
        TEST    DX,0080H
        JZ      @@1
        TEST    DX,0003H
        JZ      @@1
        MOV     AL,False
        JMP     @@2
@@1:    MOV     AL,True
@@2:
end;

И вызывать ее

if Redirected(Output) then
 .....

(Output это текстовый файл, куда пишет Writeln без указания переменной типа текст)

Примечание:

Если хочешь работать со стандарнтым вводом-выводом, крайне НЕ РЕКОМЕНДУЮ использовать модуль CRT