function Tnt_GetStringTypeExW(Locale: LCID; dwInfoType: DWORD; lpSrcStr: PWideChar; cchSrc: Integer; var lpCharType): BOOL;

TntWindows

TNT-WARN GetStringTypeEx TNT-WARN GetStringTypeExA TNT-WARN GetStringTypeExW