程序: 使用 API 开始屏幕保护

时间:2008-04-17 19:24:32  来源:  作者:

*---------------------------------------------------------------------
* 使用 API 开始屏幕保护        设计: 红雨
*---------------------------------------------------------------------
Declare integer SendMessage in user32 integer,integer,integer,integer
Declare integer GetDesktopWindow in WIN32API
lnHwnd = GetDesktopWindow()
#Define wMsg      0x0112 && 274
#Define wPsave    0xF140 && 61760

? SendMessage(lnHwnd, wMsg, wPsave, 0)  && 开始屏幕保护

Clea dlls
Return

文章评论

共有 位网友发表了评论 查看完整内容