TntSysUtils Namespace
function WideExtractFileDrive(const FileName: WideString): WideString;
TntSysUtils
TNT-WARN ExtractFileDrive