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 查找字符串并删除该字符串

Delphi中判断是否是64位操作系统

Delphi fdquery 判断记录为空

Delphi 获取内核地址的简单方法

Delphi下的纯pascal的十六进制转十进制

Delphi randomize 随机数

Delphi xe5 使用 android 内置函数几个小测试

Delphi 操作键盘按下和释放操作

Delphi的枚举类型

Delphi 取文件目录下所有文件名和文件目录名

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

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