- 博客(10)
- 资源 (5)
- 收藏
- 关注
RSS订阅原创 用GDI+实现的超酷时钟
这个DEMO是我给公司做DELPHI培训写的，现共享给初学者看看，效果图： 如果大家想看看鱼鱼桌面秀的原理也可以参照这个。主要涉及的技术：GDI+、HOOK、VCL编写。主要功能：在桌面显示一个时钟； 检测用户连续使用电脑多长时间，然后给用户一个健康提示。 源代码下载地址：http://download.csdn.net/source/1148629
2009-03-27 12:24:00
3962
3
原创 Delphi编写系统服务七：完成端口演示
在开发大量Socket并发服务器，完成端口加重叠I/O是迄今为止最好的一种解决方案，下面是简单的介绍： “完成端口”模型是迄今为止最为复杂的一种I/O模型，特别适合需要同时管理为数众多的套接字，采用这种模型，往往可以达到最佳的系统性能。但是只适合Windows NT和Windows 2000及以上操作系统。因其设计的复杂性，只有在你的应用程序需要同时管理数百乃至上千套接字的时候，而且希望随着
2008-11-28 17:07:00
3406
16
原创 Delphi编写系统服务六：在服务中使用COM组件
在服务中调用COM组件不能像在桌面程序中直接创建，在每次创建之前先调用CoInitialize(nil)，释放的时候调用CoUninitialize。例如：调用ADO组件var Qry: TADOQuery;begin CoInitialize(nil); Qry := TADOQuery.Create(nil); try ... finally Qry.Free;
2008-11-28 17:06:00
1557
原创 Delphi编写系统服务五：在系统服务和桌面程序之间共享内存
用于创建内核对象的函数几乎都有一个指向SECURITY_ATTRIBUTES结构的指针作为其参数，在使用CreateFileMapping函数的时候，通常只是为该参数传递NULL，这样就可以创建带有默认安全性的内核对象。 默认安全性意味着对象的管理小组的任何成员和对象的创建者都拥有对该对象的全部访问权，而其他所有人均无权访问该对象。可以指定一个ECURITY_ATTRIBUTES结构
2008-11-28 17:04:00
1878
3
原创 Delphi编写系统服务四：如何限制系统服务和桌面程序只运行一个
如何限制系统服务和桌面程序只运行一个在工程加入下列代码可以设置系统服务和桌面程序只运行一个。program FleetReportSvr;uses SvcMgr, Forms, SysUtils, Windows, SvrMain in SvrMain.pas {FleetReportService: TService}, AppMain in AppMain.pas
2008-11-28 17:02:00
2079
原创 Delphi编写系统服务三：编写两栖系统服务
采用下面的方法，可以实现一个两栖系统服务（既系统服务和桌面程序的两种模式）工程代码：program FleetReportSvr;uses SvcMgr, Forms, SysUtils, Windows, SvrMain in SvrMain.pas {FleetReportService: TService}, AppMain in AppMain.pas {FmFl
2008-11-28 16:59:00
2921
原创 Delphi编写系统服务二：系统服务和桌面程序的区别
Windows 2000/XP/2003等支持一种叫做“系统服务程序”的进程，系统服务和桌面程序的区别是：系统服务不用登陆系统即可运行；系统服务是运行在System Idle Process/System/smss/winlogon/services下的，而桌面程序是运行在Explorer下的；系统服务拥有更高的权限，系统服务拥有Sytem的权限，而桌面程序只有Administrator权限；在
2008-11-28 16:55:00
3253
1
原创 Delphi编写系统服务一：如何编写一个系统服务
打开Delphi编辑器，选择菜单中的File|New|Other...，在New Item中选择Service Application项，Delphi便自动为你建立一个基于TServiceApplication的新工程，TserviceApplication是一个封装NT服务程序的类，它包含一个TService1对象以及服务程序的装卸、注册、取消方法。TService属性介绍：AllowPaus
2008-11-28 16:52:00
2579
原创 Google地图之Delphi实现，含全部源代码
完全模拟Google网页地图，附带全部源码，我封装成了一个控件，需要SynaSock和GraphicEx.v9.9支持，这俩个在网上都可以下载。其中用SynaSock来下载地图，用GraphicEx来显示图片，附件中有示例和组件源码。 下载地址：http://www.bajiusoft.com/MyImage/Googlemap.JPG
2008-08-07 12:46:00
3191
7
原创 使控件支持鼠标滚轴消息
这几天要写一个控件，要求能支持鼠标滚轴放大缩小，类似网页上的Google地图。于是我从TWinControl下继承，重写function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;function DoMouseWheelDown(Shift: TShiftS
2008-04-08 12:33:00
1126
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人