ex52.pp 362 B

123456789101112
  1. Program Example52;
  2. { Program to demonstrate the GetFileHandle (was : GetFS) function.
  3. In 1.9.x it has been generalised over all platforms }
  4. Uses SysUtils;
  5. begin
  6. Writeln ('File descriptor of input ',getFileHandle(input));
  7. Writeln ('File descriptor of output ',getFileHandle(output));
  8. Writeln ('File descriptor of stderr ',getFileHandle(stderr));
  9. end.