使用ShLwApi中的PathCompactPathEx进行路径压缩显示

比如将C:/My Installations/Delphi7Compent/Media/CDROM/Disk Images/Disk1/data2.cab显示为C:/My Installati.../data2.cab

API函数为ShlWApi.dll中的PathCompactPathEx，同样的，在此DLL内还有更多关于Path路径的函数。

delphi没有把这个DLL进行封装，但有人已经把它封装好了。下载地址： ftp://delphi-jedi.org/api/Shlwapi.zip

 

function PathCompactPathExA(pszOut: PAnsiChar; pszSrc: PAnsiChar; cchMax: UINT; dwFlags: DWORD): BOOL; stdcall;
... {$EXTERNALSYM PathCompactPathExA}
function PathCompactPathEx(pszOut: PChar; pszSrc: PChar; cchMax: UINT; dwFlags: DWORD): BOOL; stdcall;
... {$EXTERNALSYM PathCompactPathEx}
function PathCompactPathEx; external shlwapi32 name  ' PathCompactPathExA ' ;

 
function CompressPath(SrcPath:String;DestLength:Integer):String;
var
  InBuffer, OutBuffer : array[ 0 ..MAX_PATH] of  char ;
begin
  FillChar(InBuffer,  MAX_PATH  +   1 ,  0 );
  FillChar(OutBuffer, MAX_PATH  +   1 ,  0 );
  StrCopy(InBuffer,PChar(SrcPath));
  PathCompactPathEx(OutBuffer, InBuffer, DestLength,  0 );  // 这里的DestLength就是设置长度
  Result: = OutBuffer;
end;