摘要：unit cpuid;
interface
type
tcputype = (cpu8086, cpu286, cpu386, cpu486, cpupentium);
function cputype : tcputype;
function cputypestring : string;
implementation
uses
sysutils;
functio......
摘要： 在windows系统中提供了一种系统消息挂钩的(message hook)功能，使用消息挂钩，可以实时监视处理系统中的各种消息。很多鼠标增强软件就是利用消息挂钩来拦截所有的鼠标消息进行处理的。
要设置鼠标消息挂钩，一般先建立一个使用鼠标消息挂钩的动态连接库(dll)文件，然后就可以在其它程序中使用这个dll文件处理鼠标消息。
下面的程序介绍通过鼠标消息挂钩监视鼠标消息，从而实现类似于一些鼠......
用Delphi编制趣味动画鼠标 我们经常可以看到许多生动有趣的动画鼠标,其实利用delphi强大的功能,我们完全可以随心所欲地制作有个人特色的鼠标.我制作了一个名为face的动画鼠标,在常态时,它是一张圆圆的脸,脸上有一双咕噜噜乱转的大睛眼.当按下左（右）键时,脸的左（右）眼就眨一下.如果持续按住,则左（右）眼眨个不停.下面我以这个动画鼠标为例,简述如何制作动画鼠标.
首先,在delphi的主菜单工具下选图像编辑器,编辑一个名为face.res的资源文件,它应该包括个人制作的五个.cur文件:faceleft.cur（图为:圆脸上一双向左看的眼睛）,faceright.cur（图为:圆脸上一双向右看的眼睛）,plainface.cur（图为:圆脸上一双向前看的眼睛）,leftshrink.cur(图为:闭着左眼的圆脸）,rightshrink.cur（图为:闭着右眼的圆脸）. 【程序编程相关:
Delphi利用Windows GDI实】 【推荐阅读:
Delphi5的控件升级到Delphi6】
做好资源文件后,打开一个新的窗体form1并放置popupmenu组件,把form1的属性popupmenu置为popupmenu1.然后在unit1的interface段下加入以下代码: 【扩展信息:
防止多个实例公用程序】
{＄ r face.res}
并在tform1.formcreate事件内加入以下代码:
screen.cursors[1]:=loadcursor(hinstance,
pchar(′lfaceleft′));
screen.cursors[2]:=loadcursor(hinstance,
pchar(′faceright′));
screen.cursors[3]:=loadcursor(hinstance, ...
下一页 摘要： 应用程序在运行当中经常要输出各种即时信息，delphi提供了多种形式的消息对话框可以满足这些要求，尽管可以使用各种标志定制一个消息框，但仍不能将自己的图标放在消息框内，也不能修改其标准行为去创建自己的消息框，其实通过调用函数messageboxindirect()就很容易绕过这些明确的限制，这是一个功能很强、易于使用的函数。
---- 此函数在windows单元里面，文件位于delphi安......
