function LongToShortFilePath(const LongName: string): string;
begin
  SetLength(Result, Windows.MAX_PATH);
  SetLength(
    Result,
    Windows.GetShortPathName(
      PChar(LongName), PChar(Result), Windows.MAX_PATH
    )
  );
end;
//delphi/2219