以前DELPHI项目中做过，用到
GetShortPathName API。
The GetShortPathName function obtains the short path form of a specified input path.
DWORD GetShortPathName(
LPCTSTR lpszLongPath, // pointer to a null-terminated path string
LPTSTR lpszShortPath, // pointer to a buffer to receive the
// null-terminated short form of the path
DWORD cchBuffer // specifies the size of the buffer pointed
// to by lpszShortPath
);
当时的代码：
//长文件名转换为短文件名
function LongNameToShort(sLong: string): string;
var
iLen: integer;
begin
Result := sLong;
//GetMem(p, Max_Path);
try
try
iLen := GetShortPathName(pchar(sLong), p, Max_Path);
if iLen > 0 then
begin
SetLength(Result, iLen);
Move(p^, Result[1], iLen);
end
else
Result := sLong;
except
Result := sLong;
end;
finally
//Freemem(p);
end;
end;
