摘要： 应用程序在运行当中经常要输出各种即时信息，delphi提供了多种形式的消息对话框可以满足这些要求，尽管可以使用各种标志定制一个消息框，但仍不能将自己的图标放在消息框内，也不能修改其标准行为去创建自己的消息框，其实通过调用函数messageboxindirect()就很容易绕过这些明确的限制，这是一个功能很强、易于使用的函数。
---- 此函数在windows单元里面，文件位于delphi安......
摘要：在windows中的很多场合下编程（例如工业控制、游戏）中需要比较精确的记时器，本文讨论的是在delphi下实现记时器的若干方法以及它们的精度控制问题。
在delphi中最常用的是timer控件，它的设置和使用都非常方便，理论上它的记时精度可以达到1ms(毫秒)。但是众所周知的，实际上timer在记时间隔小于50ms之下是精度是十分差的。它只适用于对于精度要求不太高的场合。
这里作者要介......
利用HOOK建立鼠标增强程序 在windows系统中提供了一种系统消息挂钩的(message hook)功能,使用消息挂钩,可以实时监视处理系统中的各种消息.很多鼠标增强软件就是利用消息挂钩来拦截所有的鼠标消息进行处理的.
要设置鼠标消息挂钩,一般先建立一个使用鼠标消息挂钩的动态连接库(dll)文件,然后就可以在其它程序中使用这个dll文件处理鼠标消息. 【程序编程相关:
Delhpi写MTS初步】 【推荐阅读:
移动Windows的开始按钮】
下面的程序介绍通过鼠标消息挂钩监视鼠标消息,从而实现类似于一些鼠标增强软件一样的使窗口上下左右滚动的功能. 【扩展信息:
DELPHI程序注册码设计】
1．建立动态连接库
选择菜单 file|new ,选择dll产生一个dll模版,保存为 mhook.dpr
//mhook.dpr源程序
library mhook;
uses
sysutils,
classes,
hkproc in hkproc.pas;
exports
enablemousehook,
disablemousehook;
begin
hnexthookproc:=0;
procsaveexit:=exitproc;
exitproc:=@hotkeyhookexit;
end.
再选择菜单 file|new ,选择unit建立一个pas文件,保存为 hkproc.pas
//hkproc.pas源程序
unit hkproc;
interface
uses
windows,messages;
const
move_up = 0;
move_down=1;
move_left=2;
move_right=3;
var
hnexthookproc:hhook;
procsaveexit:pointer;
m_direct:integer;
lpoint:tpoint;
nowwindow:integer;
function mouseproc(icode:integer;wparam:wparam;
lparam:pointer):lresult; stdcall;export;
function enablemousehook(wndhandle:integer):bool;export;
function disablemousehook:bool;export;
function getdirect(fpoint : tpoint;lpoint : tpoint):integer;
procedure hotkeyhookexit;far;
implementation
...
下一页 摘要：为什么我的c盘每次启动后都是完全共享？看看以下这个程序就明白了，噢，索叻是叻：）
此程序当网络上其他用户执行后，会自己复制一份到该用户windows的system目录下，,并修改该机的注册表，使该机的c盘自动改为完全共享，且每次启动机子后都会重新修改注册表，当然，为了不让别人看出执行的程序，该程序执行时不会在任务栏显示，本身也不回显，执行一秒钟后程序自动退出，不易被发觉。
来看源程序吧，该程序在......
