Delphi

Delphi 7 优化精简全功能版 v7.3

2009年11月10日没有评论

【序】
Borland是一家令人尊敬的公司,听说过有这样一句话“Borland的Delphi才是真正的Delphi”,不知正确与否,也许如此吧.谨以此纪念已经仙逝的Borland,纪念逝去的经典Delphi中的经典Delphi7.本品仅供学习交流之用,未与任何盈利为目的,请勿用于任何非法商业用途,否则后果自负. :p

【特别声明】
1:本人制作的所有软件都来自网络,版权归作者和开发商所有.本软件只供试用和学习交流,请勿用于非法途径,严禁用于任何商业用途,试用后请在24小时内删除,否则产生的一切后果将由您自己承担,与本人无关.试用后如果你喜欢此软件,请向作者或开发商购买正式软件以支持正版.
2:本人制作绿软只是出于兴趣爱好,由于水平有限,难免有不足之处,诸多问题学习积累中.
3:本人制作的绿软不集成任何第三方控件,所集成的控件和官方原版保持一致.仅集成增强IDE的第三方专家,并且均为免费或自由软件.如果您是某个第三方专家的作者并且您认为集成后会损害您的权益,请告知本人,将会给予删除.
4:此安装及绿化版经本人在 Win XP2 下测试使用正常,但不保证在您系统上或其它Windows系列版本下同样没有问题,也不保证由本绿化版引起您的计算机系统上其他问题.您若对此没有把握,请勿使用,否则对于使用后造成的任何损失本人将不负责任.
5:如果你喜欢本绿软并需要转载,请注明出处.

Delphi 7 Lite Full Edition v7.3 [SP1.1 Integrated] [Optional D2007 RTL/VCL] [Green Edition Integrated]
Delphi 7 优化精简全功能版 v7.3 [集成目前所有补丁及修正] [可选D2007 RTL/VCL] [安装版/绿色版二合一][含备份/恢复已安装控件信息专家CnWizards]
最后编译日期:2009-10-25

程序设计『Programing』

美化版的JvOutLookBar

2009年11月9日没有评论

JVCL是一套非常好的开源控件库，其中有outlookbar控件，本人将它修改了一下，可以通过自定义图片，颜色，渐变来打造个性的外观
资源名称：XJJvOutBar
资源描述: 美化版的JVouLookBar控件
使用前先使用我修改过的jvoutlookbar.pas覆盖原版的文件，
然后重新编译JvCustomDXD.dpk和JvCustomDXR.dpk包
注：这里的“X”根据你使用的delphi版本而定
如果没有安装过我的basedpk包，则要安装,最好在编译一次，因为
我有可能修改过。
属性简介：
BackPage:设置页背景画面
BackPageButton:设置页按钮背景画面
BackDownButton:设置按下按钮背景画面
BackHotButton:设置鼠标划过按钮画面.猛击此处下载控件
作者：徐进
wadhy@people.com.cn

程序设计『Programing』

FTP my IP

2009年11月6日 2 条评论

myip

程序功能，获取主机ip然后上传到指定的ftp，检测时间间隔每30min。程序源代码编译即可直接运行。

程序设计『Programing』

Delphi中实现程序的延时的方法

2009年11月5日没有评论

在Delphi中，通常可以用以下三种方法来实现程序的延时，即TTtimer控件，Sleep函数，GetTickCount函数。但是其精度是各不相同的。
一、三种方法的简单介绍
1）TTtimer控件
TTtimer控件的实质是调用Windows API定时函数SetTimer和KillTimer来实现的，并简化了对WM_TIMER 消息的处理过程。通过设置OnTimer事
件和Interval属性，我们可以很方便的产生一些简单的定时事件。
2）Sleep函数
Sleep函数用来使程序的执行延时给定的时间值。Sleep的调用形式为Sleep(milliseconds)，暂停当前的进程milliseconds毫秒。Sleep的实现
方法其实也是调用Windows API的Sleep函数。例如：
sleep(1000); //延迟1000毫秒
Sleep会引起程序停滞，如果你延迟的时间较长的话，你的程序将不能够响应延时期间的发生的其他消息，所以程序看起来好像暂时死机。
3）GetTickCount函数
在主程序中延时，为了达到延时和响应消息这两个目的，GetTickCount()构成的循环就是一种广为流传的方法。例如：

procedure Delay(MSecs: Longint);
//延时函数，MSecs单位为毫秒(千分之1秒)
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount();
repeat
Application.ProcessMessages;
Now := GetTickCount();
until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

程序设计『Programing』

Delphi 关键字详解

2009年10月27日没有评论

absolute

//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
var
Str: string[32];
StrLen: Byte absolute Str;

//这个声明指定了变量StrLen起始地址与Str相同.
//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.
begin
Str := 'abc';
Edit1.Text := IntToStr(StrLen);
end;

abstract

//它允许你创建抽象的方法, 包括有抽象方法的类称为抽象类.
//Abstract关键字必须与Virtual或Dynamic关键字同时使用, 因为抽象方法必须被覆盖式实现.
//抽象类不能实例化, 抽象方法不能包含方法体.
type
TDemo = class
private
protected
procedure X; virtual; abstract;
public
constructor Create;
destructor Destroy; override;
published
end;

程序设计『Programing』