delphi 三方控件
VCL中的Shape是个很不错的控件，可以选择几种图形，以满足我们的需求，但有时候就是觉得它的可选图形少了一点，比如我们想要一个三角形，它却没有。于是就想到来扩展一下这个控件，名为ShapeEx。其实扩展的功能不多，只是增加了一些图形。而类也并不是继承自TShape，而是继承自TGraphicControl，这样可以让我们彻底看看图形控件的做法。Tshape也是继承自TGraphicControl。而我们的扩展控件功能是基于Shape的扩展，所以当然里面的代码几乎取之TShape，只是加了一些扩展图形的代码，但又有什么关系呢，VCL源码是最好的学习资源，我们何不取之用之。
很多东西我们已经在上面说过了，这里不多说了，我要直入图形控件的重点。图形控件不是封装Windows的控件，而是Delphi自己画出来的，那么它肯定有一个画控件的函数。这个函数就是:
Paint;
看一下VCL源码，可以知道它定义在TGraphicControl。中：
procedure Paint; virtual;
这是一个虚函数，那么它的实现是怎么样的呢，点击看它的实现如下：
procedure TGraphicControl.Paint;
begin
end;
里面什么码也没有，这个很容易理解，因为它不可能知道他的子类的图形是什么样子的。所以设为虚函数，由它的子类来覆盖它。
那么是谁调用了这个函数来引起画控件呢。Windows有一个WM_PAINT;消息，当一切引起重画的条件发生，则会发送这条消息，再看看TGraphicControl，果然有截获这个消息：
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
在处理函数里面，调用了Paint方法，从而实现了画图形控件可能：
procedure TGraphicControl.WMPaint(var Message: TWMPaint);
begin
if Message.DC <> 0 then
begin
Canvas.Lock;
try
Canvas.Handle := Message.DC;
try
Paint; //调用了这个函数来画图形控件
finally
Canvas.Handle := 0;
end;
finally
Canvas.Unlock;
end;
end;
end;
而它的子类覆盖了Paint函数，所以消息处理函数调用的实际上是某个子类的Paint方法�
相关文档：
Delphi编写系统服务二：系统服务和桌面程序的区别 收藏
Windows 2000/XP/2003等支持一种叫做“系统服务程序”的进程，系统服务和桌面程序的区别是：
系统服务不用登陆系统即可运行；
系统服务是运行在System Idle Process/System/smss/winlogon/services下的，而桌面程序是运行在Explorer下的；
......
procedure Delay(msecs:integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
Tick := GetTickCount + DWord(msecs);
while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <&g ......
在项目中，需要做一个日期的提醒功能，挺郁闷的，对日期的计算:
很幸运的是在delphi 中有现有的计算函数，DateUtils单元；
路径:*\Delphi7\Source\Rtl\Common 目录下。
贴出一部分:
function IncYear(const AValue: TDateTime;
const ANumberOfYears: Integer = 1): TDateTime;
// function Inc ......
Delphi中高级DLL的编写和调用技巧
根据Delphi提供的有关 DLL编写和调用的帮助信息，你可以很快完成一般的 DLL编写和调用的 应用程序。本文介绍的主题是如何编写和调用能够传递各种参数（包括对象实例）的 DLL。例如， 主叫程序传递给 DLL一个ADOConnection 对象示例作为参数， DLL中的函数和
根据Delphi提供的有关 DLL编� ......
procedure mc_SplitStr(sourStr:String;splitChar:String;desLst:TStringList);
var
tmpStr:String;
sValue:String;
iStart,iPos:Integer;
begin
try
desLst.Clear; //很重要，否则，会一 ......
