|
|||
Скачать Как определить, переназначен ли вывод
30.11.1994 Можно воспользоваться следующей функцией: 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 | |||
© 2009–2024 Russian Pascal Developer Network.
Техническая площадка: ISBIZ Хостинг |