如何将MessageDlg产生的消息框中按钮的字改成中文？

Question

抄来一段
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function MessageBoxLg(Handle:integer;Text,Caption:String;flag:integer):integer;
  end;var
  Form1: TForm1;implementation{$R *.DFM}{ TForm1 }function TForm1.MessageBoxLg(Handle: integer; Text, Caption: String;
  flag: integer): integer;
var
  Msg:TMsgBoxParams;
begin  Msg.cbSize:=SizeOf(Msg);
  Msg.hwndOwner:=Handle;
  Msg.hInstance:=hinstance;
  Msg.lpszText:=PChar(Text);
  Msg.lpszCaption:=PChar(Caption);
  Msg.dwStyle:=flag+MB_USERICON;
  Msg.lpszIcon:='MAINICON';
  Msg.dwContextHelpId:=1;
  Msg.lpfnMsgBoxCallback:=nil;
  Msg.dwLanguageId:=LANG_NEUTRAL;  Result:=Integer(MessageBoxIndirect(Msg));end;procedure TForm1.FormClick(Sender: TObject);
begin
  MessageBoxLg(Handle,'登陆成功                   ','登陆对话框', 0);
end;end.
 

Answer 1

试验一下把consts.pas 编译后的consts.pdu 替换系统原来的consts.pdu.
这个办法原来在delphi3年代很好用，delphi 4之后据说不灵了，不错推荐你还是看看。

Answer 2

to ：　Apollo47(阿波罗)
Application.MessageBox()函数没有‘Yes to All’按钮，而偶就一定要用它:)

Answer 3

to:pazee(耙子)　
  consts.pas 编译后会生成consts.pdu吗？是dcu吧！
  若是dcu的话，把vcl50.bpl包打出来后就不起作用了。

Answer 4

用application.messagebox()不是很好吗？

Answer 5

修改"delphi6\Source\Vcl\consts.pas",将其中的英语改为中文（在哪里自己找吧），然后编译，将consts.dcu复制到"delphi6\lib\"

Answer 6

我的怎么全是中文的！！！
yes  是[Y]
yes to all 全是[A]
.....
你给我qq我告诉你怎么做的！！！！