ANSI при переходе от Lazarus 1.2.4 к 1.6.4

[DropSoft]

В Lazarus 1.2.4 использовал

Код: Выделить всё

Function MsgBox(H:HWND;s1,s2:shortstring;d1:dword):integer;
begin
  Result := MessageBox(H, PAnsiChar(UTF8ToAnsi(s1)), PAnsiChar(UTF8ToAnsi(s2)), d1);
end;

После установки Lazarus 1.6.4 вместо русских букв стали кракозябры.
Как это можно исправить, в чем дело?

[runewalsh]

Выставь кодировку исходника («UTF-8 с BOM») и убери касты к ANSI (вроде как это развернётся в MessageBoxW), либо используй MessageBoxA.

[DropSoft]

runewalsh, спасибо.

[Дож]

«UTF-8 с BOM» -- зло :)