What about using IsConsole? This indicates if the app has been compiled with
{$apptype console}.Your solution has the advantage of being simple and cross-platform. On windows this works for me: function IsConsoleOpen:boolean; var mode:longword; begin result:=GetConsolemode(GetStdHandle(STD_OUTPUT_HANDLE),mode); end; Ludo > -----Message d'origine----- > De : fpc-pascal-boun...@lists.freepascal.org > [mailto:fpc-pascal-boun...@lists.freepascal.org] De la part de Bernd > Envoyé : mercredi 13 juillet 2011 21:06 > À : FPC-Pascal users discussions > Objet : [fpc-pascal] how to test if a file is open to write? > > > Because I have no idea how to do this properly (It has been a > hundred years since I last used this form of file IO in > Pascal) I have done the following hack, just to get it > running somehow but now I wonder what would be the proper way > to do this. How can I do something like a hypothetical > IsOpen(StdOut) the proper way? This is what I have done but I > don't like it: > > implementation > var > HasOutput: Boolean = True; > > procedure log(const s: String); > begin > if HasOutput then > writeln(s); > end; > > initialization > try > writeln(); > except > HasOutput := False; > end; > end. > _______________________________________________ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
