delphi 系统长文件名与dos形式短文件名的相互转换

delphi 系统长文件名与dos形式短文件名的相互转换

作者：admin 来源：未知 日期：2010/5/26 11:30:11 人气：  标签：

QQ空间  新浪微博  腾讯微博  腾讯朋友  QQ收藏  百度空间  百度贴吧  更多

系统长文件名与dos形式短文件名的相互转换 长文件名格式： C:\Program Files\Common Files\System\directdb.dll DOS形式的短文件名 C:\PROGRA~1\COMMON~1\System\directdb.dll 有时编程时需要进行长短的转换 一、长文件名转短文件名，只需用一个函数就可以了 ExtractShortPathName('C:\Program Files\Common Files\System\directdb.dll') 二、短文件名转长文件名 首先定义函数 function GetLongPathName(Src, Dest: PChar; cch:DWord): DWord; stdcall; external 'Kernel32.dll' name 'GetLongPathNameA'; function ShortPathToLongPath(const AShortName: string): string; var sz: array[0..MAX_PATH - 1] of Char; begin FillChar(sz, SizeOf(sz), 0); GetLongPathName(PChar(AShortName), sz, MAX_PATH); Result := string(sz); end; 使用 ShortPathToLongPath（’C:\PROGRA~1\COMMON~1\System\directdb.dll‘）