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

类别:数据库 点击:0 评论:0 推荐:

*---------------------------------------------------------------------
* 使用 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

本文地址:http://com.8s8s.com/it/it20139.htm