[Delphi (Object Pascal)] Delphi把长文件名修改成DOS短文件名(8.3格式) →→→→→进入此内容的聊天室

来自 , 2020-08-29, 写在 Delphi (Object Pascal), 查看 134 次.
URL http://www.code666.cn/view/e9510081
  1. function LongToShortFilePath(const LongName: string): string;
  2. begin
  3.   SetLength(Result, Windows.MAX_PATH);
  4.   SetLength(
  5.     Result,
  6.     Windows.GetShortPathName(
  7.       PChar(LongName), PChar(Result), Windows.MAX_PATH
  8.     )
  9.   );
  10. end;
  11. //delphi/2219

回复 "Delphi把长文件名修改成DOS短文件名(8.3格式)"

这儿你可以回复上面这条便签

captcha