var ncm: TNonClientMetrics; begin ncm.cbSize := SizeOf(TNonClientMetrics); {get old non client metrics} SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(TNonClientMetrics), @ncm, 0); { lfCaptionFont - regular captions lfSmCaptionFont - small cap...

2008-04-09 04:29:33

procedure TForm1.Button1Click(Sender: TObject); begin {Disable the start button} EnableWindow(FindWindowEx(FindWindow(''''Shell_TrayWnd'''', nil),0, ''''Button'''', nil),false); end; procedure TForm1.Button2Click(Sender: TObject); begin {Enable the...

2008-04-09 04:29:32

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; function ToUnicode(str:string;dest:PWideChar):integer; function SendMsg(Toh,From,Msg:string):integer; function NetMessageBufferS...

2008-04-09 04:29:32

Decorator 模式 起源 Delphi 的 Decorator 模式是在 Decorator 的基础上进行了扩展。更多 Decorator 模式的资料请参阅 《设计模式 115 页》 目的 动态地给一个对象添加一些职责。就增加功能来说， Decorator 模式比增加子类更为灵活 . 动机 我们经常要为某一些个别的对...

2008-04-09 04:29:31

Dll 中导出类 --Delphi 实战之一 作者 : Musicwind 创建时间 : 2001-11-01 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 更新历史： No.1 更新时间： 2001-11-01 20:09 更新人员： Musicwind 更新备注：初稿完成。 ~~~~~~~~~~~~~~~~~~~...

2008-04-09 04:29:29

屏蔽 var Dummy: Integer; begin SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0); SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0); end; 打开 var Dummy: Integer; begin SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, @Dummy, 0); S...

2008-04-09 04:29:29

Observer 模式 起源 Delphi 中的 Observer 模式在基本 Observer 模式进行了扩展。更多 Observer 模式的资料请参 [Gam , pages 293..303] 目的 定义一个对象间的一种一对多的依赖关系，当一个对象状态发生变化时，所有依赖于它的对象者得到通知并自动更新 动机 将一个系...

2008-04-09 04:29:27

Visitor 模式 起源 Delphi 中的 Visitor 模式在基本 Visitor 模式进行了扩展。更多 Visitor 模式的资料请参 [Gam , pages 331..344]. 目的 表示一个作用于某个对象结构的中和元素的操作。它使你可以在不改变各元素的类的前提下定义作用于这些元素的新操作。 [Gam , pag...

2008-04-09 04:29:27

本文介绍的是如何用Delphi6开发Web Service程序，并把服务程序放在IIS Web服务器上提供给各种客户程序调用。 一编写服务程序 第一步：File-----New-----Other------WebServices-----Soap Server Application 选择ISAPI/NSAPI Dynamic Link Library然后确定。生成一个框...

2008-04-09 04:29:26

Lock pattern 起源 lock pattern 是 Delphi 中 TStrings 数据更新控制的基?Ｔ诒径魏竺娼??俨糠?Tstrings 、 TstringList 的代码 目的 为类提供一个临时的访问锁控制机制 动机 我们经常发现一个对象经常调度一个返回更改结果的通知。被调度的对象必须控制其内部状态...

2008-04-09 04:29:25