程序: 使用 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