Тоже самое, только кракозяблы другие показывать стал))
У меня delphi 2010, долго упиралось в "OemToCharBuff(
PChar(OemStr),
PChar(Result)..."
написал так
Код:
OemToCharBuff(PAnsiChar(OemStr), PWideChar(Result), Length(Result));
надеюсь это на работу не повлияло?
Скрин:
http://imagepost.ru/images/q/lj/qljs...tkacrirxzp.JPG
Перваяя строчка без использовании функции
Вторая с использованием...