得自己写吧，不知道

自己写吧。没听说过这个api

确实有的，我记得曾经在哪看到过，只是现在确实想不想来，也查找不到了。

确实有的.并且类似有一组函数：

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/shlwapi/path/pathcompactpathex.asp

搜遍了大江南北，终于在一个国外的论坛发现了该API的用法，感谢myy提供线索。
  function PathCompactPathEx(pszOut: PChar; pszSrc: PChar; cchMax: UINT; dwFlags: DWORD): BOOL; stdcall; external 'shlwapi.dll' name 'PathCompactPathExA';

这是例子
var
  s: PChar;
  InBuffer, OutBuffer : array[0..MAX_PATH] of char;
begin
  FillChar(InBuffer,  MAX_PATH + 1, 0);
  FillChar(OutBuffer, MAX_PATH + 1, 0);
  InBuffer := 'C:\Documents and Settings\All Users\Documents\My Pictures\示例图片';
  PathCompactPathEx(OutBuffer, InBuffer, 20, 0); //这里的20就是设置长度
  ShowMessage(OutBuffer);
end;

谢myy和 liyinwei(月夜彩虹)
根据myy的提示，找到了shlwApi.pas，下载地址ftp://delphi-jedi.org/api/Shlwapi.zip
例子如liyinwei(月夜彩虹)的。