使用ShLwApi中的PathCompactPathEx进行路径压缩显示
来源:互联网 发布:非零矩阵 编辑:程序博客网 时间:2024/06/07 23:21
比如将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;
...{$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;
- 使用ShLwApi中的PathCompactPathEx进行路径压缩显示
- FineReader中的图像压缩该怎样进行使用
- Shlwapi
- shlWapi
- Shlwapi字符串路径注册表处理函数
- shlwapi常用的操作路径函数
- 压缩数据以进行直接路径加载
- shlwapi.dll中的实用API函数
- 使用Java原生进行压缩和解压缩
- 使用SharpZip进行文件压缩
- 使用过滤器进行文件压缩
- 利用ShlWapi.dll得到超长路径名的缩写格式
- shlwapi.h包含的操作系统路径相关的函数
- Windows下关于文件路径的函数(shlwapi.h)
- 使用pgRouting进行路径分析
- 用SharpZipLib中的组件进行压缩和解压缩
- 用SharpZipLib中的组件进行压缩和解压缩
- Ruby中的压缩和解压缩的使用
- SQL Server 安装时报有文件被挂起,不能安装
- IIS 启动不了 【发生意外错误0x8ffe2740】
- 使用IdHTTP的问题 Object Moved
- 目录选择对话框
- MiddlegenIDE的使用
- 使用ShLwApi中的PathCompactPathEx进行路径压缩显示
- delphi内进行音量控制及静音
- Delphi中如何准确截取汉字
- 读书笔记--构造函数和复制控制
- asp.net中使用Cookie时用中文汉字引起的乱码
- 在Delphi7内取网卡MAC地址
- SQL Server在存储过程内引用返回数据集的存储过程
- Delphi 多声卡开发
- 关于面试