2016年4月15日
每日一帖示例程序（使用TWebBrowser基于HTML做）
最近在程序中增加了每日一帖的功能，搜索一下网站的程序，发现大部分是用Memo实现，而我用的是TWebBrowser基于HTML做，故帖出来共享一下。 PAS源码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Cl Read More
posted @ 2016-04-15 00:12 findumars Views(481) Comments(0) Diggs(0)
在程序异常中记录堆栈信息（使用ExWatcher）
在我们编写程序的时候可通过IDE自带的调试环境捕捉到异常(Except)错误，并能查看到相关的信息以便我们修正程序中的问题。但当软件被发布出去后，因为所部署运行的环境与我们的调试环境有很大区别，即使在是调试环境中测试过非常完美的程序，也很难保证在实际运行中不出现任何错误。当程序发生错误它往往是抛出一 Read More
posted @ 2016-04-15 00:08 findumars Views(1239) Comments(0) Diggs(0)
获取TBitMap图像缓冲区，提高图像处理速度
使用Dephi进行图像处理可以有多种方法，最常用的应该算是TBitmap，它提供方便的图像存取能力，结合Canvas可进行画线、画圆、图像拷贝等操作。不过在进行大量的图像处理操作时，为了获得更高的速度，我们希望能够直接对图像缓冲区进行读写。查阅Dephi的帮助手册没有发现直接取得整个图像缓冲区的功能 Read More
posted @ 2016-04-15 00:06 findumars Views(969) Comments(0) Diggs(0)
delphi实现穿XP防火墙
procedure TForm1.Button1Click(Sender: TObject);var FwMgr,Profile,FwApp: variant;begin FwMgr := CreateOLEObject('HNetCfg.FwMgr'); Profile := FwMgr.Loca Read More
posted @ 2016-04-15 00:04 findumars Views(423) Comments(0) Diggs(0)
让应用程序在多桌面间自由飞翔
Windows支持多桌面，Delphi了支持多桌面，今天让程序也支持上多桌面了。 程序运行时会在标题栏最小化按钮旁边显示一个按钮（支持Theme效果），按钮引出一个菜单供用户选择要显示的桌面位置，通过它即可在多桌面间自由往返。（PS:可惜CSDN现在不能上图了。） 演示程序如下： [c-sharp] Read More
posted @ 2016-04-15 00:03 findumars Views(640) Comments(0) Diggs(0)