 |
Delphi中使用inc文件 | 点击:0 | |
| 晚上看DUnit的源代码，在About窗口显示单元的代码中，发现有一段使用inc文件的代码(以前从未见过有这样的用法)，部分代码摘录如下: unit DunitAbout; // About窗口显示单元 implementation {$R *.DFM} const {$include versioninfo.inc } procedure TDunitAboutBox.For(2008-03-28) | |||
|
Delphi中用SendMessage给Edit控件发送WM_SETTEXT消息 | 点击:0 | |
| var s: string; begin s:= 'abc'; SendMessage(Edit1.handle, WM_SETTEXT, 0, Integer(PChar(s))); end;(2008-03-28) | |||
|
DELPHI中通过Timer组件批量处理数据 | 点击:0 | |
| 不过笔者在此要讲的是一种快捷,高效,建议的数据批处理方式..具体代码和操作方式如下:数据库基本的连接代码: procedure TForm1.FormCreate(Sender: TObject); var MyPath:string; const MyPassW ='****'; ///数据库密码 begin MyPath:=ExtractFilePath(ParamStr(0)); ///(2008-03-28) | |||
|
delphi下TStringList函数的用法 | 点击:0 | |
| TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 常规的用法大家都知道，现在来讨论它的一些高级的用法。 先把要讨论的几个属性列出来： 1、CommaText 2、Delimiter DelimitedText 3、Names Values ValueFromIndex 先看第一个：CommaText。怎么(2008-03-20) | |||
|
Delphi下动态数组的使用详解 | 点击:0 | |
| 传统的Pascal 语言其数组大小是预先确定的，当你用数组结构声明数据类型时，你必须指定数组元素的个数。象普通数组一样，你可以通过Length、High和Low 函数了解到动态数组的状况，不过对于动态数组，Low 函数返回值总是0，High函数返回数组大小减1，这意味着空的动态数(2008-03-20) | |||
|
Delphi写的清空回收站程序 | 点击:0 | |
| 向窗体上添加一个TButton组件，它用于激活清空回收站的操作。设计完成的主界面如图1所示。 首先在程序的implementation段中定义3个常数和一个类型声明，代码如下： const SHERB_NOCONFIRMATION = $00000001 ; SHERB_NOPROGRESSUI = $00000002 ; SHERB_NOSOUND = $00000(2008-03-09) | |||
|
在Delphi中静态调用DLL的技巧 | 点击:0 | |
| 调用一个DLL比写一个DLL要容易一些。首先给大家介绍的是静态调用方法,稍后将介绍动态调用方法,并就两种方法做一个比较。同样的,我们先 举一个静态调用的例子。 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,(2008-03-09) | |||
|
通过delphi用outlook发送邮件的方法 | 点击:0 | |
| // uses ComObj,Dialogs function TForm1.SendMailWithAttachments(Email, Subject : string; Body : Widestring ; Filename : string): boolean; var outlook : variant; item : variant; begin try outlook := CreateOLEObject('outlook.application'); try item :=(2008-03-09) | |||
|
delphi有关网络访问的函数使用 | 点击:0 | |
| unit net; interface uses sysutils ,windows ,dialogs ,winsock ,classes ,comobj ,wininet; //得到本机的局域网ip地址 function getlocalip(var localip:string): boolean; //通过ip返回机器名 function getnamebyipaddr(ipaddr: string; var macname: string): boole(2008-03-09) | |||
|
delphi中的MessageBox用法心得 | 点击:0 | |
| MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。 1、函数原型及参数 funct(2008-03-09) | |||
|
通过delphi操作注册表心得 | 点击:0 | |
| 介绍大家一种Delphi 写入注册表的方法；使用RegOpenKeyEx 写入，代码如下： procedure TForm1.regSelf; var hdKey:hkey; lpFileName:array[0..255] of char; nSize:integer; begin nSize:=256; GetModuleFileName(0,lpFileName,nSize); if(RegOpenKeyEx(HKEY_LOCAL_MAC(2008-03-09) | |||
|
Delphi中调用API函数 | 点击:0 | |
| 什么是 API函数，我想就不用细说了． Win32 API即为Windows应用程序编程接口（Application Programming Interface）。所有在Win32平台上运行的应用程序都可以调用这些函数。 早期的PC机内存非常少，Windows的设计者们不仅要把大量的代码和资源放入，而且还要留出足够的(2008-03-09) | |||
|
delphi输出excel报表 | 点击:0 | |
| 我曾经有段时间经常遇到客户要求一些格式不太复杂的报表，而且出于业务需要，这些报表在拉出来之后有可能需要手工修改，这个时候我尝试着放弃常用的fastreport及其他，而用Excel来实现，因为绝大多数客户对微软的这个东西还是熟悉的不得了，呵呵，废话不多说了。 Excel(2008-03-09) | |||
