delphi6
edit
delphi$/source/vcl/consts.pas
代码:
SMsgDlgWarning = '警告';
SMsgDlgError = '错误';
SMsgDlgInformation = '信息';
SMsgDlgConfirm = '确认';
SMsgDlgYes = '是(&Y)';
SMsgDlgNo = '否(&N)';
SMsgDlgOK = '确定';
SMsgDlgCancel = '取消';
SMsgDlgHelp = '帮助(&H)';
SMsgDlgHelpNone = '没有可用的帮助';
SMsgDlgHelpHelp = '帮助';
SMsgDlgAbort = '放弃(&A)';
SMsgDlgRetry = '重试(&R)';
SMsgDlgIgnore = '忽略(&I)';
SMsgDlgAll = '全部(&A)';
SMsgDlgNoToAll = '全部皆否(&o)';
SMsgDlgYesToAll = '全部皆是(&A)';
====================
cmd
D:/Program Files/Borland/Delphi6>cd source
D:/Program Files/Borland/Delphi6/Source>cd vcl
D:/Program Files/Borland/Delphi6/Source/Vcl>dcc32 consts.pas
Borland Delphi Version 14.0
Copyright (c) 1983,2002 Borland Software Corporation
Consts.pas(300)
301 lines, 0.40 seconds, 1050 bytes code, 4 bytes data.
D:/Program Files/Borland/Delphi6/Source/Vcl>copy consts.dcu "c:/program files/bo
rland/delphi6/lib/consts.dcu"
改写 c:/program files/borland/delphi6/lib/consts.dcu 吗? (Yes/No/All): a
已复制 1 个文件。
=====================================================================
create new application in delphi6
put a button
double click the button you just put in the form
write the following code
messagedlg('现在是中文了,哈哈',mtInformation,mbOKCancel,0);
run you application
click on button
then you will get a dlg like the following url
效果http://www.landsea.com.cn/chinese/bbs/download/test.gif