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

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