delphi
关注
分享
扫一扫
文章平均质量分 80
zhnan0451
用直线理解，用曲线实现，用心思感悟！
展开
-
一个简单的服务程序的源代码
这些文章在我的白度空间上已经发表过了，直接拷贝过来的。unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;typeTTestService = class(TService) procedure ServiceStart(Sender原创 2008-11-26 11:16:00 · 429 阅读 · 0 评论 -
两个典型的线程
对公有参数通过Synchronize处理unit Unit;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, IdBaseComponent, IdComponent;typeTForm1 = class(TForm)原创 2008-11-26 11:14:00 · 380 阅读 · 0 评论