delphi转换长文件名转短文件名函数 GetShortName

function GetShortName(const FileName: String): String;

var

  pFileName: array[0..2048] of char;

begin

  GetShortPathName(PChar(FileName), pFileName, 2048);

  result := StrPas(pFileName);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

memo1.Text:=GetShortName('C:\Program Files (x86)\InstallShield Installation Information\{3EA3D312-6FBA-422F-BC4E-F6072B75E506}\');

end;