TntSysUtils Namespace
function WideExtractShortPathName(const FileName: WideString): WideString;
TntSysUtils
TNT-WARN ExtractShortPathName