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