易语言制作屏保源码

制作屏保源码系统结构:当前信息,自动安装屏保,取Windows目录,GetWindowLong,SetWindowLong,EnumDisplaySettings,隐藏鼠标,GetClientRect,SetWindowPos,SetParent, ======程序集1 || ||------_启动子程序 || || ======窗口程序集1 || ||------_窗口1_创建完毕 || ||------当前信息 || ||------_窗口1_尺寸被改变 || ||------_时钟1_周期事件 || ||------_图片框1_鼠标位置被移动 || ||------_图片框1_鼠标左键被按下 || ||------_窗口1_将被销毁 || || ======自动安装屏保 || ||------自动安装屏保 || || ======调用的Dll || ||---[dll]------取Windows目录 || ||---[dll]------GetWindowLong || ||---[dll]------SetWindowLong || ||---[dll]------EnumDisplaySettings || ||---[dll]------隐藏鼠标 || ||---[dll]------GetClientRect || ||---[dll]------SetWindowPos || ||---[dll]------SetParent 调用的DLL命令: .DLL命令取Windows目录,整数型,"kernel32.dll","GetWindowsDirectoryA" .参数操作系统目录,文本型 .参数目录长度,整数型 .DLL命令GetWindowLong,整数型,"user32.dll","GetWindowLongA",,从指定窗口的结构中取得信息 .参数获取信息的窗口的句柄,整数型 .参数欲取回的信息,整数型,,GWL_STYLE，-16窗口样式 .DLL命令SetWindowLong,整数型,"user32.dll","SetWindowLongA",,在窗口结构中为指定的窗口设置信息 .参数ByValhwnd,整数型,,欲为其取得信息的窗口的句柄 .参数ByValnIndex,整数型,,请参考GetWindowLong函数的nIndex参数的说明 .参数ByValdwNewLong,整数型,,由nIndex指定的窗口信息的新值 .DLL命令EnumDisplaySettings,整数型,"user32.dll","EnumDisplaySettingsA",,取屏幕分辩率 .参数lpszDeviceName,整数型 .参数iModeNum,整数型 .参数lpDevMode,DevMode,传址 .DLL命令隐藏鼠标,,,"ShowCursor",,隐藏鼠标 .参数隐藏鼠标,逻辑型,,为假则隐藏鼠标，为真则不隐藏鼠标 .DLL命令GetClientRect,整数型,"user32.dll","GetClientRect" .参数ByValhwnd,整数型,,窗口句柄 .参数lpRect,lpRect .DLL命令SetWindowPos,整数型,"user32.dll","SetWindowPos" .参数ByValhwnd,整数型,,欲定位的窗口 .参数ByValhWndInsertAfter,整数型 .参数ByValx,整数型,,窗口新的x坐标 .参数ByValy,整数型,,窗口新的y坐标 .参数ByValcx,整数型,,指定新的窗口宽度 .参数ByValcy,整数型,,指定新的窗口高度 .参数ByValwFlags,整数型 .DLL命令SetParent,整数型,"user32.dll","SetParent" .参数ByValhWndChild,整数型,,子窗口的句柄 .参数ByValhWndNewParent,整数型,,WndChild的新父