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

最新推荐文章于 2025-02-10 17:18:26 发布

martian6125

最新推荐文章于 2025-02-10 17:18:26 发布

阅读量230

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/martian6125/article/details/82018456

Delphi 专栏收录该内容

266 篇文章

订阅专栏

本文介绍了一个用于缩短并展示长文件路径的方法，通过使用ShlWApi.dll中的PathCompactPathEx函数来实现。提供了Delphi中调用该函数的封装代码，并展示了如何在Delphi应用程序中压缩路径。

比如将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;