Delphi在Vista下读取注册表: Delphi在Vista下读取注册表 function getcpu:PChar;stdcall; …; (2008-11-7 14:13:30,阅读：0次)[查看全文]
Delphi开发能力自我评测: （注：以下内容都是作者个人的学习经验和体会，仅代表个人观点。针对Win32下的Delphi程序开发而言，部分内容或思想也可适用于其它工具或平台下的软件开发。）在程序员的求职资料中，用得最泛滥的词可能是“熟悉”和“精通”了。评价一个程序员的综合能力并不容易，下面的文字试图以Delphi程序开发为例定义一种描述程序员开发能力的方法。一、学习阶段划分。根据我个人的…; (2008-11-7 14:13:29,阅读：0次)[查看全文]
Delphi实现网页采集: 说到网页采集，通常大家以为到网上偷数据，然后把到收集到的数据挂到自己网上去。其实也可以将采集到的数据做为公司的参考，或把收集的数据跟自己公司的业务做对比等。目前网页采集多为3P代码为多（3P即ASP、PHP 、JSP）。用得最有代表的就动易科技公司BBS中新闻采集系统，和网上流传的新浪新闻采集系统等都是用ASP程序来使用，但速度从理论上来说不是很…; (2008-11-7 14:13:28,阅读：0次)[查看全文]
Delphi操作xml: Delphi7 支持对XML文档的操作，可以通过TXMLDocument类来实现对XML文档的读写。可以利用TXMLDocument把XML文档读到内存中，从而可以进行编辑、保存操作。TXMLDocument类是通过DOM(文档对象模型)接口来访问XML文档中的各个元素的。对于DOM接口的实现有多种方式，Delp…; (2008-11-7 14:13:27,阅读：0次)[查看全文]
用ListView控件列举目录中的文件: 用ListView控件列举指定目录中的文件，以列举C盘文件目录为例子： procedure TForm1.Button1Click(Sender: TObject);var SearchRec : TSearchRec; Path : String; …; (2008-11-7 14:13:26,阅读：0次)[查看全文]
给MenuItem中添加Image: 要给MenuItem添加Image，可以和ImageList配合使用，要显示的图片可以用ImageIndex来指定。在本程序中添加了一个MainMenu1 : TMainMenu，在MainMenu1里面添加了些菜单项，只有菜单二没有指定图片，和一个ImageList1: TImageList。在这个小的试验里面，Code没有多少，主要是设置属性。…; (2008-11-7 14:13:26,阅读：0次)[查看全文]
delphi编写提取exe文件的ICO图标: 会写自己的EXE程序,但没一个好看的EXE图标,是不是很遗憾啊?很多软件都有很好看的图标,我们为什么不提取出来呢?下面教你怎么用delphi编程提取EXE文件的图标,并保存为ICO格式的.代码如下:procedure TForm1.getIcon; var Count&nbs…; (2008-11-7 14:13:24,阅读：0次)[查看全文]
delphi 如何快速读取文本文件: You may try this: function R(const FileName: string): string;var M: TFileStream;begin M := TFileStream.Create(FileName, fmOpenRead); try &nbs…; (2008-11-7 14:13:24,阅读：0次)[查看全文]
用Delphi开发简单的WebMail程序: WebMail是指在网页中实现邮件的发送。使用Delphi开发Web Server程序是非常简单的，Delphi中提供了大量的元件和对象。下面通过一个例子来介绍如何利用Delphi开发一个响应用户输入的ISAPI的WebMail程序。为了简单，程序没有对传送的数据提供保密。首先，在Web服务器端安装数据库引擎dbe,并设置好数据库别名：yh,指…; (2008-11-7 14:13:23,阅读：0次)[查看全文]
Delphi中如何取得系统支持的颜色数: 在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在16Bits的颜色数的计算机上开发而成，程序的颜色调试得非常漂亮，但是到了一台只支持16色的计算机上，程序变得非常难看。这就需要得到系统的颜色数。 Delphi中如何取得系统的颜色数呢？下面的程序就解决这个问题。 function GetSysColorNum:Int…; (2008-11-7 14:13:22,阅读：0次)[查看全文]
Delphi用拼音首字符序列实现检索功能: 在日常工作和生活中我们经常使用电子记事本查找个人通讯录信息，或在单位的应用程序中查询客户档案或业务资料，这个过程中往往需要输入大量的汉字信息，对于熟悉计算机的人这已经是一件头疼的事，那些不太熟悉计算机或根本不懂汉字输入的用户简直就望而生畏。作为对数据检索技术的一种新的尝试，作者探索使用汉字拼音的首字符序列作为检索关键字，这样，用户不必使用汉字，只须…; (2008-11-7 14:13:22,阅读：0次)[查看全文]
DELPHI的奇异菜单的编写: Custom Menus, Text, Lines / Delphi 4, 5自定义菜单,文本,线/ Delphi 4, 5Fancy Menus, etc. 奇异菜单,等等Custom Menus, Rotated Text, and Special Lines 自定义菜单,旋转文本,和特殊的线条 Before Delphi 4, it was…; (2008-11-7 14:13:20,阅读：0次)[查看全文]
Delphi存取图像完整解决方案: 对于涉及图像数据的数据库应用程序，图像数据的存取技术是一个关键。由于缺少技术文档及DEMO例程演示，为此笔者在网上搜索了相关资料，有的根本不能用，有的过于繁杂，有的应用范围太窄（如只能适用于BMP图像），有的写得过于简单理解起来十分困难。。。而且在网上这也是大家比较关心的一个问题。笔者对这个问题进行了反复实作和探索，下边笔者将通过一个完整的简单例…; (2008-11-7 14:13:18,阅读：0次)[查看全文]
在Delphi7中RaveReport的使用: 近段时间用Delphi7的RaveReport控件做票据打程序, 遇到不少问题. 幸好在网上得到得一些前辈(有意或无意)的帮助.得到不少心得. 在此表示感谢! 同时也将自己的所得拿出来与大家一起分享. unit UReportClass; interface uses Windows,classes,Form…; (2008-11-7 14:13:18,阅读：0次)[查看全文]
Delphi ListView的用法: //增加 i := ListView1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:= IntToStr(i); …; (2008-11-7 14:13:16,阅读：0次)[查看全文]
delphi如何控制登陆失败的次数: 要求：当输入的用户名或密码错误时，提示“用户名或密码错误，你还剩3次登陆机会！” 再错就提示“用户名或密码错误，你还剩2次登陆机会！”......最后当3次输入的密码都不正确时退出系统！ if trim(MMEdit.Text) <> trim(pubQry.FieldByName(uPas).AsString…; (2008-11-7 14:13:15,阅读：0次)[查看全文]
应用程序敏感键的实现: 　　----在一个应用程序内部菜单、部件都可以设置敏感键。如在菜单中一般用Alt+F进入“文件”之类的子菜单。另外我们在桌面上设置的快捷方式里的快捷键，无论你任何时候按下你所设置的快捷键就会启动相应的应用程序。在多个正在运行的应用程序中如何利用一个按键动作迅速地回到你所需要的应用程序呢？这就需要利用敏感键（HOTKEY）的技术来实现。本文利用De…; (2008-11-7 14:13:13,阅读：0次)[查看全文]
用Delphi编制趣味动画鼠标: 　　我们经常可以看到许多生动有趣的动画鼠标，其实利用Delphi强大的功能，我们完全可以随心所欲地制作有个人特色的鼠标。我制作了一个名为face的动画鼠标，在常态时，它是一张圆圆的脸，脸上有一双咕噜噜乱转的大睛眼。当按下左（右）键时，脸的左（右）眼就眨一下。如果持续按住，则左（右）眼眨个不停。下面我以这个动画鼠标为例，简述如何制作动画鼠标。　　首…; (2008-11-7 14:13:12,阅读：0次)[查看全文]
Delphi初学者应小心的六大陷阱: 初学DelphiI的人，由于各种原因，对DelphiI中的许多概念不能很好的理解，并由此带来了许多的问题，或者是开发出的程序稳性不好，一会能运行，一会又不能运行；或者是遇到一个问题久思不得其解，还误以为是DelphiI自身的BUG，等等这些，浪费了我们大量的时间、精力，也影响了我们的开发效率。　　那么…; (2008-11-7 14:13:11,阅读：0次)[查看全文]
DELPHI高精度计时方法: 　　//取毫秒级时间精度(方法一)：　　var 　　 t1,t2:int64; 　　 r1:int64;　　begin 　　 t1:=GetTickCount;//获取开始计数 WINDOWS API 　　 sleep(1000);{do...}//执行要计时的代码　　t2:=GetTickC…; (2008-11-7 14:13:11,阅读：0次)[查看全文]
Delphi开发工具中如何访问数据库结构: 　　在开发数据库软件的过程中，由于实际需求不断发生变化，数据库结构也将随之改变，这会给文档更新工作带来很大困难。如果能够用软件自动获得数据库的结构信息并生成报告文件，将减轻软件的文档工作量。　　1 TSession对象　　为了管理应用程序与数据库系统的多重连接，Delphi提供了TSession对象。Delphi中的数据访问对象(Data Ac…; (2008-11-7 14:13:10,阅读：0次)[查看全文]
如何用Delphi创建快捷方式: 　　由于我们是通过OLE Interface实现此功能的，因此在程序单元的uses语句中要加入ComObj、ActiveX和ShlObj这三个单元。　　在单元的声明部分加入以下代码：　　其中，ProgramPath是快捷方式的目标文件的全路径(包括文件名和路径); 　　ProgramArg是目标文件的参数;LinkPath是快捷方式的全路径;…; (2008-11-7 14:13:09,阅读：0次)[查看全文]
Delphi程序中包的妙用: 　　自动化测试框架的基础是钩子，也就是常说的HOOK机制。但这在实际的应用过程中可能会遇到一些问题。　　一旦要做钩子，那么就必须获取函数地址。由于我原先设计的钩子的目标函数，都是Delphi的内部函数，也就是说，这些函数在编译之后，很难找到。　　当然了，也是有几种方式可以找到的：　　将代码植入到系统中，编译的时候可以直接找到。　　编译的时候…; (2008-11-7 14:13:09,阅读：0次)[查看全文]
用Delphi编写圆周率模拟器[1]: 　　圆周率π是个古老的东西，早在1700多年前祖冲之已将其值精确到小数点后7位，而如今通过计算机程序已能算到十亿位之多！我是个圆周率爱好者，这个“爱好”至少是出于对这个无理数的热衷，我不但可以背诵到小数点后100位，而且还收藏着从网上找到几个计算π的程序，你有兴趣可以到我的小站nihg.yeah.net找一下。　　一、模拟器原理　　本程序并使用…; (2008-11-7 14:13:07,阅读：0次)[查看全文]
用Delphi编写圆周率模拟器[2]: 　　程序首先在Image1控件区域内画一个边长为200的正方形作为程序的演示窗口，故FormCreate事件如下：　　procedure TForm1.FormCreate(Sender: TObject);　　begin　　// 画亮绿色的正方形演示框　　Image1.Canvas.Brush.Color:=clBlack;　　Image1.C…; (2008-11-7 14:13:07,阅读：0次)[查看全文]
WINDOWS编程技巧之DELPHI篇: 一、隐藏任务栏在WINDOWS中，系统的任务栏本质上也是一个窗口，其窗口类名为“Shell_TrayWnd。要实现对它的操作，可通过API函数FindWindow和ShowWindow来达到目的。 varwndHandle:THandle;wndClass:Array[0..50] of char;beginStrPCopy(@wndClass[…; (2008-11-7 14:13:06,阅读：0次)[查看全文]