delphi 长文件路径转换短文件路径

本文整理自网络，侵删。

 
转换前：
C:\Users\zhangshuai\Desktop\codesnip-develop\codesnip-develop
转换后：
C:\Users\ZhangSH~1\Desktop\CODESN~1\CODESN~1

function LongToShortFilePath(const LongName: string): string;
begin
  SetLength(Result, MAX_PATH);
  SetLength(Result, GetShortPathName(PChar(LongName), PChar(Result), MAX_PATH));
end;
 

相关阅读 >>

Delphi is 与 as 运算符举例

Delphi删除目录及其子目录

Delphi Delphi中点击dbgrid某一行获得其详细数据方法

Delphi richedit选中文字右键菜单的实现

Delphi 获取当前进程的父进程

Delphi Delphi tparallel cleanup needed用法

Delphi输入汉字自动产生拼音简码

Delphi 10.3 开发app 在android手机上获取imei

Delphi将n个相同字符提取到左边，m个相同字符提取到右边

Delphi 首字母转换大写

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 长文件路径转换短文件路径