Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Переадресация Ввода-Вывода    >>    redirect
   
 
 Как определить, переназначен ли вывод   Виктор Вагнер 30.11.1994

Функция для определения, есть ли переадресация



1k 
 

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