delphi安装cad控件delphi一些语法及实例.docx

delphi安装cad控件我下载的是使用版本，用的Delphi版本是Delphi7，在下载的文件包目录CADImportVCLv6.1产品试用版cadimportvclDelphiLib7有个sgGrpVw7.dpk文件，用Delphi打开后，先点compile，然后再install就可以了，操作的时候貌似会出现message提示有warning，不过貌似不影响安装。下面附加Delphi安装第三方控件的方法供参考：由于组件提供的方式不同，所以安装的方法也是不一样的，下面就目前常见的各种形式的组 件的安装方法介绍一下。 1只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公 布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会 出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此组 件就不能再使用了，当然有的作者给出了几种版本的DCU文件，用户根据需要选择使用。这 样的组件的安装方法是：在Component菜单中，选择install component，在对话框中的 into existing package页中，单击“Unit file name”后的“Browse”按钮，在打开的 文件对话框中，将“文件类型”设定为*.dcu，找到要安装的DCU文件，按OK按钮返回 into existing package页后再按OK按钮就可以安装了。注意，此时Delphi会提示 dclusr40.dpk将被重建，是否继续，OK就可以了。这里是将组件安装到dclusr40.dpk包中， 此包从文件名上可以看出是用户自定义组件包，先安装到这个包中吧，下面再讲有关注意 事项。安装完毕会有已经将组件注册完的提示信息以及安装到哪个组件页中的信息等，到 组件面板上看看，一般会出现一个新的组件页，其中有刚安装的组件。 2、只有PAS文件或既有PAS又有DCU文件的组件。这种组件因为有PAS文件，也就是说作者提 供了源码，这就好办多了。安装的方法和上面是一样的，在文件类型中可以设定为DCU也可 以设定为PAS，建议设定为PAS，这样可用你的Delphi重新编译一下，看是否会出现问题。 Delphi升级后只能选择PAS文件安装，这样才能重新编译，使得组件能适应新Delphi版本。 这样的组件是很值得使用的，根据心铃的经验，没有源码的组件最好不要使用，一是存在 Delphi版本升级后无法使用的问题，再者当程序出现问题后用户无法调试组件来判断是否 是组件中存在BUG。 3、有dpk文件的组件包。带有dpk文件的组件包一般是有多个组件构成的，也就是说安装后 会有多个组件供使用，如果只有一个组件作者一般不会制成DPK文件，使用上面的方式发布 就可以了。对于这样的组件包，一般来说会有详细的安装说明文件，如上面提到的RXLIB， 由于组件复杂且安装时有先后顺序，作者不提供安装说明用户根本无法正确安装。如果没 有安装说明文件，那么用下面的方法安装：在File菜单下，选择”OPEN”打开dpk文件 (文件类型列表框中选*.dpk)，在出现的Package窗口中，工具栏上有Install按钮，按此 按钮即可进行安装。如果Install按钮处于无效状态，那么先按Compile按钮编译，一般 来说编译之后Install按钮就会处于有效状态，此时再按Install按钮就可以了。 4、带有Bpl文件的组件包。一般来说这也是由多种组件构成的组件包，它其实是一个动态 连接库文件（DLL）。对于这种组件包的安装方法是：在component菜单下选择 “install packages”，然后单击Add按钮，在打开的文件对话框中找到相应的bpl文件打 开返回后，再单击Ok按钮就可以了。 5、ActiveX控件的安装。要安装这类控件，需要先用regsvr32.exe注册，然后选择 Component菜单中Import ActiveX Control项。在Import ActiveX Control打开的窗口中， 只有已经注册的ActiveX控件才出现在列表中，选中一个然后按Install按钮就可以安装了。 如果事先没有用regsvr32.exe注册也可以按ADD按钮找到OCX文件即时注册，注册后再进行 安装。 几点说明：1 在拿到组件后先看是否有说明文件，一般来说在说明文件中有如何安装的 指导，有些还会有组件的属性、事件、方法的使用说明，这些在使用时是非常重要的。 2 在上面的组件（包）安装操作之前，最好将 *.bpl拷贝到你的System目录中，将 *.pas、*.dcu、*.dcr、*.dp?拷贝到Delphi的Lib目录中再进行。3 前面我们提到安 装DCU组件时，选用的是已经存在的dclusr40.dpk，当然也可以选择安装到一个新的包中， 如果选择新包，需要先取一个名字比如DEMO，事实上安装完毕后用户可以找到的是 Demo.bpl，而找不到DEMO.DPK。假如你已经将一个组件安装到dclusr40.dpk中了，还想再 安装一个组件，如果再安装到dclusr40.dpk中，安装后你得到提示，原来安装的那个组件 已经被取消注册，你将无法使用了。这样不就成了只能安装一个组件了吗？除非你再安装 到一个新的包中才可以两个组件同时使用。当然每安装一个组件生成一个新的BPL文件也 未偿不可，但BPL文件就增加许多。能否在dclusr40.dpk中多安装几个组件呢？当然是可 以的。方法如下：用File菜单下的OPEN打开dclusr40.dpk文件，单击ADD按钮，在打开的 对话框中选择ADD UNIT页面，按Unit file name后的“Browse”按钮打开组件单元文件， OK即可，用此种方法这样可添加多个组件的单元文件，添加完毕，按一下编译按钮，然后 再按Install按钮即可，如果单元文件是编译好的（DCU）可以直接按安装按钮。4 组件的 删除。光会安装可不行，还要会删除呀。很简单，在component菜单下，选择 install packages，在列表中找到安装所在的Bpl，按Remove按钮，ok！再把Bpl文件删掉 就彻底了，如果不删除BPL文件，下次可以按安装BPL组件的方法再安装使用。上一篇：Delphi连接AutoCA.下一篇：Object Pascal的.|返回日志列表用Delphi实现对AutoCAD的操作 图片 分享 复制地址 日志地址: 请用Ctrl+C复制后贴给好友。雨蒙蒙的天空 2009年11月05日 18:33 阅读(4) 评论(0) 分类：个人日记 权限: 公开 字体：大 小 中 大 更多 设置置顶 权限设置 推荐日志 转为私密日志 删除 编辑 一、概述AutoCAD? ActiveX? 使用户能够从 AutoCAD 的内部或外部以编程方式来操作 AutoCAD。它是通过将 AutoCAD 对象显示到“外部世界”来做到这一点的。这些对象被显示后，许多不同的编程语言和环境以及其他应用程序（例如 Microsoft? Word VBA 或 Excel VBA）就可以访问它们。在 AutoCAD 中实现 ActiveX 接口有两大优点：更多的编程环境可以编程访问 AutoCAD 图形。在 ActiveX Automation 出现以前，开发人员只能使用 AutoLISP? 或 C+ 接口。 与其他 Windows? 应用程序（如 Microsoft Excel 和 Word）共享数据变得更加容易。 二、在Delphi中导入AutoCAD类型库 AutoCAD 2005 Automation 工程与 AutoCAD 2004 Automation 工程使用同一类型库 (acax16enu.tlb)。类型库位于 C:Program FilesCommon FilesAutodesk Shared目录下。在Delphi中按下述步骤导入类型库：Project菜单Import Type LibraryAdd.选择类型库(acax16enu.tlb)Install.然后就会生成一个AutoCAD_TLB.pas文件。在Unit单元中引用AutoCAD_TLB，然后就可以按照CAD自带的帮助文件ActiveX 和 VBA 开发人员指南中的相关说明使用了。三、简单的一个例子：（新建一个图形文件，输入文字，并全部显示）新建一个工程，添加一个按钮。下面为全部代码。unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls,ComObj,autocad_tlb;typeTForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject);private Private declarations public Public declarations end;varForm1: TForm1;implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject); var cad,CADDOC,inpoint:variant; textheight:integer;begin /form1.Visible:=false;trycad:=GetActiveOleObject(AutoCAD.Application);exceptcad:=createOleObject(AutoCAD.Application);end;cad.WindowState := $00000003; /最大化 /(acmax-$00000003,acmin-$00000002,acnorm-$00000001)cad.Visible := true; /设置为可视trycaddoc:=cad.activedocument;/选择当前活动文档exceptcaddoc:=cad.documents.add();/如果没有打开文档则新建一个;end;inpoint:=varArraycreate(0,2,5);inpoint0:=strtoint(30);inpoint1:=strtoint(40);inpoint2:=strtoint(30);textheight:=strtoint(5);caddoc.ModelSpace.addtext(Hello，World！,inpoint,textheight);cad.Application.ZoomExtents;end;end. unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids;type TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOConnection2: TADOConnection; Button1: TButton; OpenDialog2: TOpenDialog; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; DBGrid1: TDBGrid; DataSource1: TDataSource; Button2: TButton; Label1: TLabel; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1;implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject); 将Excel 导入 accessvar sFileName, sTableName: string; sl: TStringList; i: integer;begin if not OpenDialog2.Execute then Exit; if not ADOConnection1.Connected then ADOConnection1.Connected:=True; /判断是否连接 try sFileName := OpenDialog2.FileName; ADOConnection2.Connected := False; /注意这里 连接 EXCEL 的参数 /关键是这里 ADOConnection2.ConnectionString := Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source= + sFileName + ;Extended Properties=Excel 8.0;IMEX=1;Persist Security Info=False; ADOConnection2.Connected := True; / sl := TStringList.Create; ADOConnection2.GetTableNames(sl); / 记住 Excel 文件的 底部 必须是 sheet1 否则不能导入 sTableName := sl0; if Pos($, sTableName) 0 then sTableName := + sTableName + ; ADOquery2.Close; ADOquery2.SQL.Clear; ADOquery2.SQL.Text := SELECT * FROM + sTableName; ADOquery2.Open; sl.Free; ADOquery1.Close; ADOquery1.Sql.Text := SELECT top 1 * FROM shiyan where 1=0; /打开 空记录表.这里可以用 insert,不用append ADOquery1.Open; /根据自己习惯 做吧. if ADOquery2.RecordCount 0 then begin ADOquery2.First; for i := 1 to ADOquery2.RecordCount do / begin ADOquery1.Append; ADOquery1.FieldValues孔号:=ADOquery2.FieldValueskonghao; ADOquery1.FieldValues图号:=ADOquery2.FieldValuestuhao; ADOquery1.FieldValues层号:=ADOquery2.FieldValuescenghao; ADOquery1.FieldValues深度:=ADOquery2.FieldValuesshendu; ADOquery1.FieldValues岩土名称:=ADOquery2.FieldValuesytmc; ADOquery1.Post; ADOquery2.Next; end; end; MessageBox(Handle,导入完成！,完成！,MB_OK+MB_ICONINFORMATION); except MessageBox(Handle,失败！,信息！,MB_OK+MB_ICONINFORMATION); end;end;procedure TForm1.Button2Click(Sender: TObject); 打开access -SP 表begin if not ADOConnection1.Connected then ADOConnection1.Connected:=True; /判断是否连接 ADOquery1.Close; ADOquery1.Sql.Text := SELECT * FROM shiyan; ADOquery1.Open;end;procedure TForm1.FormCreate(Sender: TObject);beginend;end.DBGrid1图为：“聪明的程序员用Delphi！”现在，真是有越来越多的人开始用Delphi了。不过，高手毕竟是少数，像我这样的菜鸟可谓遍地都是，哈哈。既然是菜鸟自然就有一大堆很菜的问题，什么这个怎么设置、那个怎么写的所以，以下我就以我所积累的那一点点经验和论坛上常见的小问题作一个总结性发言（全场热烈鼓掌！哎，这鲜花我就收下了，那个什么烂番茄就不要扔上来了嘛） 系统应用篇Delphi自代了大量的常用控件，如Delphi5就有一百多了，而今年出的Delphi6更是Delphi5的1.5倍。这么多控件，就是在1024*768的分辨率下也无法全部显示他们的组件面板，而每次要按那两颗小按钮来显示更多的面板，真是非常不方便！但通过添加下面那一个注册表键值就能实现组件面板自动展开：HKEY_CURRENT_USERSoftwareBorlandDelphiX.0ExtrasAutoPaletteSelect=1（注：X.0表示你的Delphi的版本号；如果没有Extras主键则新建即可，下同）每次新建窗体，然后设置其字体、大小真是好麻烦的！那就再添加一个以下的键值，让系统自动来设置吧：HKEY_CURRENT_USERSoftwareBorlandDelphiX.0FormDesignDefaultFont=宋体,9,_（注：_表示空格，也可以用Bold(粗体)等代替）自定义工作环境，让它更加适合自己。 ?设置工具栏。在Delphi的工具栏右键单击，选Customize，然后挑选需要的按钮拖到工具上，把不要的拖出来。我常用的是：Standard工具栏下的Open、Open Project、Save、Save All、Undo、Redo；Debug工具栏下的Pause、Add Watch、Program Reset、Run；Desktop工具栏下的Save Current Desktop、Set Debug Desktop；Component Palette工具栏。 ?设置窗口布局。为了能跟高效的编写程序，合理的布置各个窗口是很重要的。我常用的窗口有：Object Inspector、Project Manager(View|Project Manager)、Watch List(Run|Add Watch.) ，具体的停放位置如图1。设置好各个窗体后按Desktop工具栏上的Save Current Desktop按钮保存。 ?设置显示颜色。让代码的颜色更符合自己的习惯，有利于编写时思维的清晰。Tools|Editor Options打开Editor Properties，选Color标签页，设置代码颜色。以下仅解释一下几个常用的： Whitespace：空白处，即背景； Comment：注释； Reserved word：保留字； String：字符串； Number：数字； Execution Point：正在执行的当前行（即F7步入时所到达的那一行）； Enabled break：断点； Error line：错误发生行；掌握一些Delphi编程中的快捷键，能够极大程度的提高效率，还不会让你因为过多无聊的设置等而感到厌烦，现在如果不用这些快捷键，我会很不适应这样的编程的！以下我就介绍一下我常用的几个快捷键：Esc : 选择当前选中组件的容器（通常是Panel,GroupBox或Form等）；Ctrl+方向键 ：将所选组件移动一个像素；Ctrl+Shift+方向键 ：将所选组件移动一大格（类似Fireworks中按住Shift再用方向键移动时的效果）；Shift+方向键 ：调整选中组件的大小，每次一像素；Shift+选中组件 ：按住Shift键再用鼠标点击组件，可以同时选择多个组件；Ctrl+鼠标左键 ：在procedure中掉用其他的函数（如一个自定义的过程），在这个调用处按住Ctrl会发现当鼠标移上去的时候变成了一个类似超链接的格式，鼠标单击就能直接转到所调用的此函数的实现部分。这个功能我可是用的最多了，让我找模块变得非常方便！Ctrl+Shift+C ：在一个对象中声明了一个方法，然后把光标放到它的上面，按下Ctrl+Shift+C就可以为他的实现建立一个基本框架，如：TForm1 = class(TForm) private Private declarations public Public declarations procedure Mine; end;把光标放到procedure Mine这行，按下Ctrl+Shift+C，下面这段代码将自动插入到单元中：procedure TForm1.Mine;beginend;窗体操作篇 在有多个窗体的程序中，Delphi默认是将它们在程序启动时全部创建（只是都隐藏了，只显示一个主窗体），这样，那些暂时不必要启动的窗体就占用了许多内存空间。所以我们需要在菜单Project|Options.的Forms标签页下，将那些暂时不要启动的窗体从“Auto-create forms”下转移到“Available forms”中。这样，这些窗体的创建和释放就需要代码来实现了。两种创建窗体方法之比较。对于这些非自动创建的窗体，我们必须在Show之前Creat(Self)或Create(Application)，将其创建。如Form2.Creat(Self)和Form2.Create(Application)，可是，它们两个到底有什么区别呢？其实两者区别不大，但如果Owner是属于别的窗口或控件的话，当它的Owner被释放的时候，该Owner所拥有的也会被释放。关键的区别是由谁来管理该窗体的资源。用第一种方法创建，该窗体的资源由编程者来负责管理；用第二种方法创建，该窗体的资源由Application来管理。几种窗体的释放方法。既然是为了节约内存，那么用完了的窗体就应该“搬出”内存。在这里我列举几个大同小异的方法：(1)procedure TForm1.Button1Click(Sender :TObject);begin.if Form2 = nil then Form2:=TForm2.Create(Application);Form2.ShowModal;.end;procedure TForm2.close(Sender: TObject; var Action: TCloseAction);begin ModalResult := mrNone; Action := caFree; Form2 := nil;end;(2)procedure TForm1.Button1Click(Sender :TObject);begin if not Assigned(Form2) then begin Application.CreateForm(TForm2,Form2); try Form2.ShowModal; finally Form2.Free; Form2 := nil; end; end else Form2.ShowModal;end;(3)procedure TForm2.Button1Click(Sender :TObject);begin Form2.Close; Form2.Release;end;控件使用篇大名鼎鼎的RXLib控件包是由三位俄罗斯高手编写的，非常的出色！不过，内容太多了，要用好也不容易。我在此拿RxRichEdit简单地说几点。 ?好多人都问RxLib怎么安装，似乎的确有点复杂，呵呵，所以我也顺便说一下： 运行rxinst.exe将RxLib先安装到Program FilesBorlandDelphi5（或6）RX文件夹下，然后打开Delphi，选FileOpen.，将RXCTL5.DPK、RXDB5.DPK、RXBDE5.DPK分别打开后按compile，继续打开：DCLRX5.DPK、DCLRXDB5.DPK和DCLRXBD5.DPK，将这三个分别按compile后按install就可以了:-) ?AllowObjects属性。Win98下默认设置为True，右键菜单没有问题，但设为False时快捷菜单会连续出现两次；Win2000下，设为True时会使右键菜单无法弹出，而False时却显示正常。所以，为了系统的兼容性，需要判断当前OS版本：procedure TFormMain.FormCreate(Sender: TObject);var OSVI:OSVERSIONINFO;.begin OSVI.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO); GetVersionEx(OSVI); case OSVI.dwPlatformId of 1:RxRichEdit1.AllowObjects:=true; 2:RxRichEdit1.AllowObjects:=false; end;.end;但我不知这个属性为什么会有这么一个问题，还望高手指点。 ?OnURLClick事件。RXRichEdit有自动将网页地址转为超链接格式，但具体的行为还是要自己写代码的，不然这些地址就成了个空壳了：procedure TFormMain.RXRichEdit1URLClick(Sender: TObject; const URLText: String; Button: TMouseButton);begin if Button = mbLeft then ShellExecute(Handle, nil, PChar(URLText), nil, nil, SW_SHOW);end;为了节约内存，优化运行，我们总是动态创建组件。可当用完之后，如果不及时彻底的将其从内存中清理出去，那就有违我们的初衷了。可怎么“杀死”所创建的组件? 比如创建了一个Edit控件,现在想让它消失，但用Edit.Free后，调用Edit.Text却仍然存在我们知道，光Free是不行的，这只是将Edit所指向的内存空间释放了，但是指针并没有设定为nil，当调用Edit.Text时，Delphi仍然会根据Edit提供的指针访问已经释放的内存区域，所以会产生Access Violation .错误。所以我们需要在Free后Edit:=nil或者FreeAndNil（只在Delphi5下有效）将指针nil掉，才能保证以后的正常运行。将各控件的提示文本显示于状态行上。这个可用Application的OnHint事件，但由于Application为不可件对象，因此可以采用如下方法：. public procedure DisplayHint(Sender: TObject); /声明一个方法用于显示提示文本 end;.procedure TForm1.DisplayHint(Sender: TObject); /实现部分begin StatusBar1.SimpleText := GetLongHint(Application.Hint);end;procedure TForm1.FormCreate(Sender: TObject); begin Application.OnHint := DisplayHint;end;这样显示在状态栏里的文本和提示框（就是那个自动出现的黄色小框）里的是一样的。如果想要在状态栏里的提示文本更加详细怎么办？其实，只要控件的Hint属性这样写：MyHint|Its just a MyHint!，就可以让“|”前的内容显示在提示框（Help Hint box）里，“|”的后面的内容显示在状态栏里了。ListView使用中的一些要点。以下以一个两列的ListView为例。 增加一行：with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:=第一列内容; ListItem.SubItems.Add(第二列内容); end; 清空ListView1：ListView1.Items.Clear; 得到当前被选中行的行的行号以及删除当前行：For i:=0 to ListView1.Items.Count-1 Do If ListView1.Itemsi.Selected then /i=ListView1.Selected.index begin ListView1.Items.Delete(i); /删除当前选中行 end;当然，ListView有OnSelectItem事件,可以判断选择了哪行,用个全局变量把它赋值出来。 读某行某列的操作：Edit1.Text := listview1.Itemsi.Caption; /读第i行第1列Edit2.Text := listview1.Itemsi.SubItems.strings0; /读第i行第2列Edit3.Text := listview1.Itemsi.SubItems.strings1; /读第i行第3列以次类推，可以用循环读出整列。 将焦点上移一行：For i:=0 to ListView1.Items.Count-1 Do If (ListView1.Itemsi.Selected) and (i0) then begin ListView1.SetFocus; ListView1.Items.Itemi-1.Selected := True; end;不过在Delphi6中，ListView多了一个ItemIndex属性，所以只要ListView1.SetFocus;ListView1.ItemIndex:=3;就能设定焦点了。其他 ?为了优化软件，使其精益求精，当用到数组时经常采用动态数组。在声明时，如：A : array of string，然后在使用数组之前，SetLength(A,3)设置数组长度为3，即A0,A1,A2，这样就可以了。当需要扩大数组长度时，再一次：SecLength(A,5)，那么，就增加了A3和A4，而前面的A0,A1,A2里的值不会清空；同样，如果SecLength(A,3)后再SecLength(A,1)的话，就只剩A0了，A1和A2自动被清除内存。注意：动态数组是从“0”开始的，所以SetLength(A,1)后High(A)=0的！ 最后当不再用这个动态数组了，而程序还没有要退出，那为了节省内存用：A:=nil来释放掉这个数组，这下真正达到了“绿色环保”：） ?“怎么获取当前程序运行的路径”这个问题经常能够在论坛上看到。的确，这个函数在编程中不时的要用到的。其实有好几个函数都能达到这个效果：GetCurrentDirectory()：WinAPI函数，具体用法如下： var MyCurrentDir:Array0.144 of Char; /存储当前绝对路径 begin GetCurrentDirectory(SizeOf(MyCurrentDir),MyCurrentDir); /取得当前绝对路径,最后得到的格式如：C:WINDOWSSYSTEM MyCurrentDir:=MyCurrentDir+MySoftName.exe; end;GetCurrentDir()：GetCurrentDirectory经过Delphi封装后的一个函数，用法简单：MyCurrentDir:=GetCurrentDir。最后得到的格式如：C:WINDOWSSYSTEM 还有就是可以直接得到路径的函数：ExtractFilePath(ParamStr(0)、ExtractFilePath(Application.exename)等。 ?系统的关机、重新启动等操作的消息。这也是一个常有人问的问题，在此我也顺便在提一下：关机：ExitWindowsEx(EWX_SHUTDOWN,32);重新启动：ExitWindowsEx(EWX_REBOOT,32);注销：ExitWindowsEx(EWX_LOGOFF,32);关闭电源：ExitWindowsEx(EWX_POWEROFF,32); ?在Delphi中，除了使用#39外，要在程序中（如ShowMessage中）显示“单个单引号”要如何处理？和都会出现编译错误。其实，是四个单引号表示一个单引号，也就是是 ，第二个和第三表明这是一个“”，第一个和第四个是表明这是一个字符型。呵呵，很有趣哦：） ?ShowMessage中的汉化问题。ShowMessage中的按钮都是E文的，让人很不舒服。其实经过我们的一番DIY，也能把它们都弄成中文的。 首先要保存当前的工程，然后选Project|Languages|Add.，出现Add Language对话框，选择你要汉化的工程（也可以自定义文件夹），Next；选最后一项“中文（中国）”，Next；Next；Next；Finish；OK；然后就出现了Translation Manager对话框，在左边选“中文（中国）|Resource Scripts|Projet1_DRC（这个具体要看你的工程文件名）”，然后右边的列表里找到“Const_SMsgDlgOK”项，将其的“中文（中国）(translated)”格改为“确定”（原为OK），保存后退出。这下，再运行一下程序，哈哈，是不是就是中文按钮啦！不过，ShowMessage这种类型的信息对话框非常简单了，可以在系统调试期间显示给开发人员一些过程信息。但由于过于简单，所以我建议在软件的正式版中不要使用这样的对话框。而且，最好用MessageBox代替ShowMessage以减小软件的体积，例如，同样一个DLL文件，采用MessageBox 编译后的DLL文件大小为58K，而ShowMessage后就变成了301K！语言：Delphi方法一：api函数：shfileoperation procedureCopyDirTree(Ahdl:THandle;SourceDir,TargetDir:String);varSHFileOpStruct:TSHFileOpStruct;FromDir,ToDir:PChar;beginGetMem(fromdir,length(sourcedir)+2);GetMem(todir,length(targetdir)+2);tryfillchar(fromdir,length(sourcedir)+2,0);fillchar(todir,length(targetdir)+2,0);strcopy(fromdir,Pchar(sourcedir);strcopy(todir,Pchar(targetdir); withSHFileOpStructdobeginwnd:=ahdl;wfunc:=FO_COPY;pfrom:=fromdir;pto:=todir;fflags:=FOF_NOCONFIRMATIONorFOF_RENAMEONCOLLISION;fAnyOperationsAborted:=false;hnamemappings:=nil;lpszprogresstitle:=nil;ifshfileoperation(shfileopstruct)0thenraiselastwin32error;end;finallyFreeMem(fromdir,length(sourcedir)+2);FreeMem(todir,length(targetdir)+2);end;end;方法二：functionDoCopyDir(sDirName:String;sToDirName:String):Boolean;varhFindFile:Cardinal;t,tfile:String;sCurDir:String255;FindFileData:WIN32_FIND_DATA;begin/先保存当前目录sCurDir:=GetCurrentDir;ChDir(sDirName);hFindFile:=FindFirstFile(*.*,FindFileData);ifhFindFileINVALID_HANDLE_VALUEthenbeginifnotDirectoryExists(sToDirName)thenForceDirectories(sToDirName);repeattfile:=FindFileData.cFileName;if(tfile=.)or(tfile=.)thenContinue;ifFindFileData.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORYthenbegint:=sToDirName+tfile;if notDirecto