WideCharToMultiByte

function WideCharToMultiByte(

  CodePage: UINT;

  dwFlags: DWORD;

  lpWideCharStr: LPWSTR;

  cchWideChar: Integer;

  lpMultiByteStr: LPSTR;

  cchMultiByte: Integer;

  lpDefaultChar: LPCSTR;

  lpUsedDefaultChar: PBOOL

):Integer;