XP系统中，要怎样才能添加新的窗口和按钮方案

你要安装XP的主题包，就会有新的窗口和按钮方案。
在显示——外观页面中的“窗口和按钮”，就可以选择不同的方案。
你可以到狗狗www.gougou.com中，用XP主题包做为关键词，搜索，就能找到很多的XP主题包。

实现起来要定义以下过程：

1、 定义DrawCaptButton过程，这个过程的功能是在指定的位置画出按钮。

在过程中要使用win32函数GetSystemMetrics得到窗口的大小和标题按钮的大小；使用delphi函数Bounds定义一个矩形，这个矩形就是新按钮的位置；再定义一个小的矩形，这个矩形是为了填写文本；最后就调用delphi中比较有用的函数drawbuttonface把按钮画出来。

2、 每次我们对窗口进行操作，例如，最大化操作或最小化操作，新按钮就会消失，为了解决这个问题，我们对所有的消息要进行处理，给每个消息编写一个过程对按钮进行重画。

A、定义WMNCPaint(var Msg：TWMNCPaint)过程，处理消息WM_NCPaint。

B、定义WMNCActivate(var Msg ：TWMNCActivate)过程，处理消息WM_NCACTIVATE。

C、定义WMSetText(var Msg：TWMSetText)过程，处理消息WM_SETTEXT。

D、定义WMNCHitTest(var Msg ：TWMNCHitTest)过程，处理消息WM_NCHITTEST。

E、定义WMNCLButtonDown(var Msg : TWMNCLButtonDown)过程，处理消息WM_NCLBUTTONDOWN。

二、 具体的源程序如下：

我们结合源程序来讲述过程的实现，从中可以看出程序对win32函数的调用，以及drawbuttonface函数的使用方法。

unit