癫狂编程

从网上整理的一些delphi字符串加密解密方法

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

posted @ 2017-08-28 16:05 癫狂编程阅读(1831) 评论(0) 推荐(0) 编辑

Delphi导出数据的多种方法

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

posted @ 2017-08-18 20:24 癫狂编程阅读(1553) 评论(0) 推荐(0) 编辑

Delphi+DBGrid导出Excel

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

posted @ 2017-08-18 19:40 癫狂编程阅读(924) 评论(0) 推荐(0) 编辑

delphi try except语句和 try finally语句用法以及区别

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

posted @ 2017-08-18 18:56 癫狂编程阅读(348) 评论(0) 推荐(0) 编辑

XE2 运行时 item not found的解决办法

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

posted @ 2017-03-23 21:55 癫狂编程阅读(599) 评论(0) 推荐(0) 编辑

RAD Studio XE2破解、安装、试用

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

posted @ 2017-03-23 21:39 癫狂编程阅读(3849) 评论(0) 推荐(0) 编辑

Delphi7/2007/2009/2010/XE/XE2/XE3/XE4/XE5/XE6/XE7/XE8/10最终版

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

posted @ 2017-03-23 21:37 癫狂编程阅读(3442) 评论(0) 推荐(0) 编辑

Delphi中统一显示表格字段名的高效方法

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

posted @ 2017-03-22 04:40 癫狂编程阅读(285) 评论(0) 推荐(0) 编辑

Delphi 2010 3513正式版破解

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

posted @ 2017-03-09 13:45 癫狂编程阅读(4634) 评论(0) 推荐(0) 编辑

[代码]Delphi实现窗体内嵌其他应用程序窗体

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

posted @ 2017-03-05 00:11 癫狂编程阅读(844) 评论(0) 推荐(0) 编辑

delphi 的 LockType 锁类型

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

posted @ 2017-03-05 00:02 癫狂编程阅读(1281) 评论(0) 推荐(0) 编辑

Delphi下EasyGrid使用体会

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

posted @ 2017-03-02 10:19 癫狂编程阅读(1582) 评论(0) 推荐(0) 编辑

Delphi中Messagedlg用法

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

posted @ 2017-03-02 01:17 癫狂编程阅读(1280) 评论(0) 推荐(0) 编辑

Delphi获取其它进程窗口句柄的3种方法

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

posted @ 2017-03-02 01:02 癫狂编程阅读(1136) 评论(0) 推荐(0) 编辑

delphi获取一个窗口的所有子窗口(包括嵌套)

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

posted @ 2017-03-02 00:56 癫狂编程阅读(2031) 评论(0) 推荐(0) 编辑

关于获取其它程序窗口编辑框内容解决思路

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

posted @ 2017-03-02 00:53 癫狂编程阅读(880) 评论(0) 推荐(0) 编辑

delphi有关获取其他程序的窗口及对窗口内控件的操作

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

posted @ 2017-03-02 00:52 癫狂编程阅读(5916) 评论(0) 推荐(0) 编辑

Delphi 实现获取其他程序的子窗体

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

posted @ 2017-03-02 00:50 癫狂编程阅读(1150) 评论(0) 推荐(0) 编辑

VS2008中英文转换

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

posted @ 2017-03-02 00:16 癫狂编程阅读(714) 评论(0) 推荐(0) 编辑

借鉴学习 DELPHI 通用函数哈哈

摘要： [转]关于Delphi通用涵数 http://m.blog.csdn.net/blog/dragonjiang5460/1196927 2006-9-8阅读2016 评论0 DELPHI程序注册码设计（转载）思路是这样的:程序运行时先检测注册表,如果找到注册项,则表明已经注册,如果没有找到注册项, 阅读全文

posted @ 2017-03-01 02:03 癫狂编程阅读(1503) 评论(0) 推荐(0) 编辑