在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.