[fpc-pascal]LFN->SFN

[Peter Vreman]

> > Despite several different methods of writing it, it only returns the
lo> ng
> > filename again when using the GetShortName function.
> 
> This GetShortName is a FreePascal library routine, is it not? I only
foun> d a 
> reference to it in a compiled DOS unit in my installation. The original 
> Win32 API function is called GetShortPathName and it works for me all
rig> ht. 
> As a general rule, you should use the Win32 functions directly if you
don> 't 
> need portability or some extended features an additional library would
ad> d.

The getshortname of the dos unit should also work as it contains only a pascal string
wrapper around the getshortpathname api call.

Peter