From: "Victor B. Wagner" <vitus@agropc.msk.su>
Organization: Agroecological problems Center


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

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

                            Vitus Wagner

Origin SoftWeyr