癫狂编程

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文

摘要： function Encode(Str: string): string; var //加密 TmpChr: AnsiChar; i, Len: integer; begin Result := Str; Len := Length(Result); TmpChr := Result[1]; for 阅读全文

摘要： //Dxdbgrid，则直接用SaveToexcel即可//使用 ExcelWithOdbc 控件function TDataModule1.GetDataToFile(DsData: TObject): Boolean; //用于将数据导入文件中var DataSet: TCustomADODat 阅读全文

摘要： uses ComObj; //DBGrid:指定的DBGrid;SaveFileName:要保存的文件名 function ExportDBGrid(DBGrid: TDBGrid; SaveFileName: string): boolean; var c,r,i,j: integer; app: 阅读全文

摘要： try//尝试执行{SomeCode} except//出错的时候执行, Except有特定的错误类型 {SomeCode} end; try//尝试执行{SomeCode} finally//无论如何都强制执行{SomeCode} end; 例:tryAge:=StrToInt(Edit1.Tex 阅读全文

摘要： .net类库的原因。 将C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\CONFIG下面的 machine.config.default 改名为machine.config .net类库的原因。 将C:\WINDOWS\Microsoft.NET\Fram 阅读全文

摘要： RAD Studio XE2刚发布没几天，网上找到了破解，鸡冻啊。迫不及待的下载安装。 新特性： 使用FireMonkey ?创建令人印象深刻的商业应用 构建64位Delphi应用程序以利用最新的硬件 创建单一的应用程序，并同时在Windows和OS X上运行 使用新的移动和云连接能力扩展多层Dat 阅读全文

摘要： RAD Studio 10.1 Berlin(with Update1)http://altd.embarcadero.com/download/radstudio/10.1/delphicbuilder10_1_upd1.isoftp://ftpd.embarcadero.com/download 阅读全文

摘要： 问题描述：在开发数据库程序时，我们经常要使用很多的表格显示组件DBGrid。当DBGrid显示某表格的数据时，其字段标题默认的就是后台数据库中的表格的字段名称。而为了数据库开发方便，后台数据库中的表格的字段标题通常是用英文表示的，如用Employees表中的EmployeesID表示雇员编号。但是我 阅读全文

摘要： Delphi 2010 3513正式 一、下载ISO文件右键迅雷下载二、安装完成后，先运行一下程序，程序会弹出叫你注册对话框，逐步点击Cancel >OK >No >OK 三、下载附件运行，跳转到Delphi 2010页面,然后勾选 Remove Delphi 2010 License check, 阅读全文

摘要： 实现原理是启动一个应用程序，通过ProcessID得到窗体句柄，然后对其设定父窗体句柄为本程序某控件句柄(本例是窗体内一个Panel的句柄)，这样就达成了内嵌的效果。 本文实现的是内嵌一个记事本程序，如下图： unit frmTestEmbedApp; interface uses Windows, 阅读全文

摘要： LockType 锁类型 常数 值 说明 adLockReadOnly 1 只读(默认) adLockPessimistic 2 悲观锁 adLockOptimistic 3 乐观锁 adLockBatchOptimistic 4 乐观批更新 为了实现多个用户同时对同一信息的访问,就出现了锁技术.通 阅读全文

摘要： 最近在编写软件的时候，非常需要一款支持多表头的StringGrid控件，朋友介绍使用EasyGrid控件，这款控件大概从04年开始就没有再更新，网上有关与它的资料也较少。但是通过其demo，此软件还是能满足需要，由于资料少，所以将自己在使用过程中的一些体会整理出来。 一、多表头合并 在EasyGri 阅读全文

摘要： if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Close; end; if MessageDlg('Welcome t 阅读全文

摘要： 本文主要跟大家介绍Delphi中获取其它进程的窗口句柄，在Delphi中获取其它进程的窗口句柄，绝大部分人首先想到的会使用：FindWindow或者用GetWindow来遍历查找，如： handle := FindWindow(nil,PChar('窗口的标题')); 或者： procedure T 阅读全文

摘要： unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm 阅读全文

摘要： 关于获取其它程序窗口编辑框内容想通过一个小程序获取一个叫“客户信息”窗口中不为空编辑框的内容窗口有四个编辑框，请大家指教。 解决方案 先获取到编辑框的句柄，可以根据Z序查找到句柄，你用Spy++看下；然后用下面的函数获取编辑框里面的内容： 解决方案 既然找到了句柄，直接用api GetWindowT 阅读全文

摘要： 1.获取当前所有窗口 procedure TForm1.Button1Click(Sender: TObject);var szText: array[0..254] of char; hCurrentWindow :hwnd;beginhCurrentWindow := GetWindow(Han 阅读全文

摘要： 通过一个父窗体的句柄，递归的枚举它的子窗体，我们可以最终找到需要的子窗体。 用法如下： nParentHandle := FindWindow(nil, 'Notepad'); if nParentHandle <> 0 then nChildHandle := FindChildWindow(nP 阅读全文

摘要： 设置Visual Studio的语言： 工具=》选项=》环境=》区域设置=》语言 如图： 对于英文不好的朋友还是挺好用的 阅读全文