GetLongFileName

Implementation

………………………

Uses ShellApi ;

………………………

Function GetLongFileName ( Const FileName : String ) : String ;

Var

   aInfo       : TSHFileInfo ;

Begin

   If SHGetFileInfo ( PChar ( FileName ) , 0 , aInfo , Sizeof ( aInfo ) , SHGFI_DISPLAYNAME ) <> 0 Then

      Result := String ( aInfo.szDisplayName )

   Else

      Result := FileName ;

End ;

            Example :

                caption := GetLongFileName ( 'C:\Progra~1\Borland' ) ;