在Lazarus使用API函数MessageBox中,直接使用中文标题和提示会出现乱码。利用PChar+Utf8ToAnsi来转下可以消除乱码。
program Project1;
uses Windows;
begin
MessageBox(0,PChar(Utf8ToAnsi('你好')),PChar(Utf8ToAnsi('温馨提示')),MB_OK);
end.
在Lazarus使用API函数MessageBox中,直接使用中文标题和提示会出现乱码。利用PChar+Utf8ToAnsi来转下可以消除乱码。
program Project1;
uses Windows;
begin
MessageBox(0,PChar(Utf8ToAnsi('你好')),PChar(Utf8ToAnsi('温馨提示')),MB_OK);
end.