GetShortFileName

Function GetShortFileName ( Const FileName : String ) : String ;

Var

   aTmp        : Array[ 0..255 ] Of char ;

Begin

   If GetShortPathName ( PChar ( FileName ) , aTmp , Sizeof ( aTmp ) - 1 ) = 0 Then

      Result := FileName

   Else

      Result := StrPas ( aTmp ) ;

End ;

            Example :

                caption := GetShortFileName ( 'C:\Program Files\Borland' ) ;