DECLARE SHORT CharToOem IN user32;
STRING lpszSrc,;
STRING @ lpszDst
DECLARE SHORT OemToChar IN user32;
STRING lpszSrc,;
STRING @ lpszDst
* source string of Cyrillic characters (1251)
lcSrc = "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÜÛÚÝÞß" +;
"àáâãäåæçèéêëìíîïðñòóôõö÷øùüûúýþÿ"
* a buffer for destination string
lcDst = SPACE(Len(lcSrc))
? lcSrc
* converting from ANSI to OEM
= CharToOem (lcSrc, @lcDst)
? lcDst
* converting back from OEM to ANSI
= OemToChar (lcDst, @lcSrc)
? lcSrc
|