[fpc-pascal] Unicode filenames

[Felipe Monteiro de Carvalho]

> procedure AnyFileRoutineInWin32(AFileName: widestring);
> begin
>  if UnicodeEnabledOS then SomeWin32APIW()
>  else AnsiToWideString(SomeWin32ApiA())
> end;

If you want even more details you can initialize UnicodeEnabledOS by
reading the operating system version and the operating system type
NT/9x very easely.

-- 
Felipe Monteiro de Carvalho