如何得到本地化的按钮文字?
比如英文windows中的Ok,在中文windows中就是'确定'。我怎样知道当前操作系统语言下的Ok对应的是什么呢?我不是要把文件用在对话框中,所以messagebox是用不着的。
[解决办法]
procedure TForm1.FormCreate(Sender: TObject);
begin
case GetOEMCP() of
936:
begin
Button1.Caption := '打开';
Font.Name := '宋体';
end;
950:
begin
Button1.Caption := 'ゴ'; //打开
Font.Name := '灿砰' //细明体
end;
else
begin
Button1.Caption := 'Open';
Font.Name := 'MS Sans Serif';
end;
end;
end;