易语言动态桌面背景源码

系统结构:参数初始化,主处理,计算机名处理,自定义处理,天气预报部分代码,释放字节流,创建字节流,取字节流指针,取字节流尺寸,取出字节集,销毁,创建_自名称,GetNativeFamily,SetNativeFamily,画图片_从文件_GDIPlus,画图片_从字节集_GDIPlus,创建画刷_图片画刷_GDIPlus,创建画刷_固色画刷_GDIPlus,销毁画刷_GDIPlus,创建字体_GDIPlus,销毁字体_GDIPlus,画文字_GDIPlus,GetBitsFromBitmapHandle,A2W,W2A,RGB到ARGB,取配置项目_LF_API,GdipCreateFromHDC,GdipLoadImageFromFile,GdipLoadImageFromStream,GdipGetImageDimension,GdipDrawImageRect,GdipDisposeImage,GdipDeleteGraphics,MultiByteToWideChar,CreateFontIndirectA,SelectObject,DeleteDC,DeleteObject,ReleaseDC,SetBkMode,SetTextColor,TextOutA,CreateCompatibleDC,LoadImageA,GetObjectA,GetDIBits_BimapInfo,GetDIBits,CopyMemory_BITMAPINFO,CopyMemory_BITMAPFILEHEADER,WideCharToMultiByte,GdiplusStartup,GdiplusShutdown,GlobalAlloc,GlobalLock,GlobalUnlock,GlobalSize,GlobalFree,CreateStreamOnHGlobal,GdipCreateSolidFill,GdipCreateFont,GdipDeleteFontFamily,GdipCreateFontFamilyFromName,GdipDrawString,GdipGetTextRenderingHint,GdipDeleteBrush,GdipDeleteFont,GdipCreateTexture,CreateCompatibleBitmap,GdipSetTextRenderingHint,PaintDesktop,GetDC,更换壁纸bmp,GetPrivateProfileSection_取配置项目,DLL命令1,

======主程序集
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 参数初始化
           |  |
           |  |------ 主处理
           |  |
           |  |------ 计算机名处理
           |  |
           |  |------ 自定义处理
           |  |
           |  |------ 天气预报部分代码
           |  |
           |  |
======字节流
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 释放字节流
           |  |
           |  |------ 创建字节流
           |  |
           |  |------ 取字节流指针
           |  |
           |  |------ 取字节流尺寸
           |  |
           |  |------ 取出字节集
           |  |
           |  |
======GdiplusFontFamily
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 销毁
           |  |
           |  |------ 创建_自名称
           |  |
           |  |------ GetNativeFamily
           |  |
           |  |------ SetNativeFamily
           |  |
           |  |
======程序集
           |  |
           |  |------ 画图片_从文件_GDIPlus
           |  |
           |  |------ 画图片_从字节集_GDIPlus
           |  |
           |  |------ 创建画刷_图片画刷_GDIPlus
           |  |
           |  |------ 创建画刷_固色画刷_GDIPlus
           |  |
           |  |------ 销毁画刷_GDIPlus
           |  |
           |  |------ 创建字体_GDIPlus
           |  |
           |  |------ 销毁字体_GDIPlus
           |  |
           |  |------ 画文字_GDIPlus
           |  |
           |  |------ GetBitsFromBitmapHandle
           |  |
           |  |------ A2W
           |  |
           |  |------ W2A
           |  |
           |  |------ RGB到ARGB
           |  |
           |  |------ 取配置项目_LF_API
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GdipCreateFromHDC
           |  |
           |  |---[dll]------   GdipLoadImageFromFile
           |  |
           |  |---[dll]------   GdipLoadImageFromStream
           |  |
           |  |---[dll]------   GdipGetImageDimension
           |  |
           |  |---[dll]------   GdipDrawImageRect
           |  |
           |  |---[dll]------   GdipDisposeImage
           |  |
           |  |---[dll]------   GdipDeleteGraphics
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   CreateFontIndirectA
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   SetTextColor
           |  |
           |  |---[dll]------   TextOutA
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   LoadImageA
           |  |
           |  |---[dll]------   GetObjectA
           |  |
           |  |---[dll]------   GetDIBits_BimapInfo
           |  |
           |  |---[dll]------   GetDIBits
           |  |
           |  |---[dll]------   CopyMemory_BITMAPINFO
           |  |
           |  |---[dll]------   CopyMemory_BITMAPFILEHEADER
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   GdiplusStartup
           |  |
           |  |---[dll]------   GdiplusShutdown
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   GlobalSize
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   CreateStreamOnHGlobal
           |  |
           |  |---[dll]------   GdipCreateSolidFill
           |  |
           |  |---[dll]------   GdipCreateFont
           |  |
           |  |---[dll]------   GdipDeleteFontFamily
           |  |
           |  |---[dll]------   GdipCreateFontFamilyFromName
           |  |
           |  |---[dll]------   GdipDrawString
           |  |
           |  |---[dll]------   GdipGetTextRenderingHint
           |  |
           |  |---[dll]------   GdipDeleteBrush
           |  |
           |  |---[dll]------   GdipDeleteFont
           |  |
           |  |---[dll]------   GdipCreateTexture
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   GdipSetTextRenderingHint
           |  |
           |  |---[dll]------   PaintDesktop
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   更换壁纸bmp
           |  |
           |  |---[dll]------   GetPrivateProfileSection_取配置项目
           |  |
           |  |---[dll]------   DLL命令1

调用的DLL命令:

.DLL命令 GdipCreateFromHDC, 整数型, "GdiPlus.dll", "GdipCreateFromHDC"
    .参数 hdc, 整数型
    .参数 graphics, 整数型, 传址

.DLL命令 GdipLoadImageFromFile, 整数型, "GdiPlus.dll", "GdipLoadImageFromFile"
    .参数 filename, 字节集
    .参数 image, 整数型, 传址

.DLL命令 GdipLoadImageFromStream, 整数型, "GdiPlus.dll", "GdipLoadImageFromStream"
    .参数 stream, 整数型
    .参数 image, 整数型, 传址

.DLL命令 GdipGetImageDimension, 整数型, "GdiPlus.dll", "GdipGetImageDimension"
    .参数 image, 整数型
    .参数 width, 小数型, 传址
    .参数 height, 小数型, 传址

.DLL命令 GdipDrawImageRect, 整数型, "GdiPlus.dll", "GdipDrawImageRect"
    .参数 graphics, 整数型
    .参数 image, 整数型
    .参数 x, 小数型
    .参数 y, 小数型
    .参数 width, 小数型
    .参数 height, 小数型

.DLL命令 GdipDisposeImage, 整数型, "gdiplus.dll", "GdipDisposeImage"
    .参数 image, 整数型

.DLL命令 GdipDeleteGraphics, 整数型, "GdiPlus.dll", "GdipDeleteGraphics"
    .参数 graphics, 整数型

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 CreateFontIndirectA, 整数型, , "CreateFontIndirectA"
    .参数 lpLogFont, LOGFONT

.DLL命令 SelectObject, 整数型, , "SelectObject"
    .参数 hdc, 整数型, , 一个设备场景的句柄
    .参数 hObject, 整数型, , 一个画笔、位图、刷子、字体或区域的句柄

.DLL命令 DeleteDC, 整数型, , "DeleteDC"
    .参数 hdc

.DLL命令 DeleteObject, 整数型, , "DeleteObject"
    .参数 hdc

.DLL命令 ReleaseDC, , , "ReleaseDC"
    .参数 hwnd, 整数型, , 要释放的设备场景相关的窗口句柄
    .参数 hdc, 整数型, , 要释放的设备场景句柄

.DLL命令 SetBkMode, , , "SetBkMode"
    .参数 hdc
    .参数 nBkMode

.DLL命令 SetTextColor, , , "SetTextColor"
    .参数 hdc
    .参数 crColor

.DLL命令 TextOutA, , , "TextOutA"
    .参数 hdc
    .参数 x
    .参数 y
    .参数 lpString, 文本型
    .参数 nCount

.DLL命令 CreateCompatibleDC, 整数型, , "CreateCompatibleDC"
    .参数 hdc, 整数型

.DLL命令 LoadImageA, 整数型, , "LoadImageA"
    .参数 hInst, 整数型
    .参数 lpsz, 文本型
    .参数 un1, 整数型
    .参数 n1, 整数型
    .参数 n2, 整数型
    .参数 un2, 整数型

.DLL命令 GetObjectA, 整数型, , "GetObjectA"
    .参数 hgdiobj
    .参数 cbBuffer
    .参数 lpvObject, BITMAP

.DLL命令 GetDIBits_BimapInfo, 整数型, , "GetDIBits"
    .参数 HDC
    .参数 hBitmap
    .参数 nStartScan
    .参数 nNumScans
    .参数 lpBits
    .参数 lpBI, BITMAPINFO
    .参数 wUsage

.DLL命令 GetDIBits, 整数型, , "GetDIBits"
    .参数 HDC
    .参数 hBitmap
    .参数 nStartScan
    .参数 nNumScans
    .参数 lpBits, 字节集
    .参数 lpBI, BITMAPINFO
    .参数 wUsage

.DLL命令 CopyMemory_BITMAPINFO, 整数型, , "RtlMoveMemory"
    .参数 Destination, 字节集
    .参数 Source, BITMAPINFO
    .参数 Length

.DLL命令 CopyMemory_BITMAPFILEHEADER, 整数型, , "RtlMoveMemory"
    .参数 Destination, 字节集
    .参数 Source, BITMAPFILEHEADER
    .参数 Length

.DLL命令 WideCharToMultiByte, 整数型, , "WideCharToMultiByte", , 返回 MultiByte字符数目,包括结尾0
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 整数型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 unknow, 整数型
    .参数 unknow, 整数型

.DLL命令 GdiplusStartup, 整数型, "gdiplus.dll", "GdiplusStartup"
    .参数 token, 整数型, 传址
    .参数 inputbuf, GdiplusStartupInput
    .参数 outputbuf, 整数型

.DLL命令 GdiplusShutdown, , "gdiplus.dll", "GdiplusShutdown"
    .参数 token, 整数型

.DLL命令 GlobalAlloc, 整数型, , "GlobalAlloc"
    .参数 wFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 GlobalLock, 整数型, , "GlobalLock"
    .参数 hMem, 整数型

.DLL命令 GlobalUnlock, 整数型, , "GlobalUnlock"
    .参数 hMem, 整数型

.DLL命令 GlobalSize, 整数型, , "GlobalSize"
    .参数 hMem

.DLL命令 GlobalFree, 整数型, , "GlobalFree"
    .参数 hMem, 整数型

.DLL命令 CreateStreamOnHGlobal, 整数型, "Ole32.dll", "CreateStreamOnHGlobal"
    .参数 hGlobal, 整数型
    .参数 fDeleteOnRelease, 整数型
    .参数 ppstm, 整数型, 传址

.DLL命令 GdipCreateSolidFill, 整数型, "GdiPlus.dll", "GdipCreateSolidFill"
    .参数 color, 整数型
    .参数 brush, 整数型, 传址

.DLL命令 GdipCreateFont, 整数型, "GdiPlus.dll", "GdipCreateFont"
    .参数 fontFamily, 整数型
    .参数 emSize, 小数型
    .参数 style, 整数型
    .参数 unit, 整数型
    .参数 font, 整数型, 传址

.DLL命令 GdipDeleteFontFamily, 整数型, "GdiPlus.dll", "GdipDeleteFontFamily"
    .参数 FontFamily, 整数型

.DLL命令 GdipCreateFontFamilyFromName, 整数型, "GdiPlus.dll", "GdipCreateFontFamilyFromName"
    .参数 name, 字节集
    .参数 fontCollection, 整数型
    .参数 FontFamily, 整数型, 传址

.DLL命令 GdipDrawString, 整数型, "GdiPlus.dll", "GdipDrawString"
    .参数 graphics, 整数型
    .参数 string, 字节集
    .参数 length, 整数型
    .参数 font, 整数型
    .参数 layoutRect, RectF
    .参数 stringFormat, 整数型
    .参数 brush, 整数型

.DLL命令 GdipGetTextRenderingHint, 整数型, "GdiPlus.dll", "GdipGetTextRenderingHint"
    .参数 graphics, 整数型
    .参数 mode, 整数型, 传址

.DLL命令 GdipDeleteBrush, 整数型, "GdiPlus.dll", "GdipDeleteBrush"
    .参数 brush, 整数型

.DLL命令 GdipDeleteFont, 整数型, "GdiPlus.dll", "GdipDeleteFont"
    .参数 font, 整数型

.DLL命令 GdipCreateTexture, 整数型, "GdiPlus.dll", "GdipCreateTexture"
    .参数 image, 整数型
    .参数 wrapmode, 整数型
    .参数 texture, 整数型, 传址

.DLL命令 CreateCompatibleBitmap, 整数型, , "CreateCompatibleBitmap"
    .参数 hdc, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型

.DLL命令 GdipSetTextRenderingHint, 整数型, "GdiPlus.dll", "GdipSetTextRenderingHint"
    .参数 graphics, 整数型
    .参数 mode, 整数型

.DLL命令 PaintDesktop, , , "PaintDesktop"
    .参数 hdc

.DLL命令 GetDC, 整数型, , "GetDC"
    .参数 hwnd, 整数型

.DLL命令 更换壁纸bmp, 整数型, , "SystemParametersInfoA"
    .参数 uAction
    .参数 uParam
    .参数 lpvParam, 文本型
    .参数 fuWinIn

.DLL命令 GetPrivateProfileSection_取配置项目, , , "GetPrivateProfileSectionA"
    .参数 lpAppName, 文本型, , 欲获取的小节。注意这个字串不区分大小写
    .参数 lpReturnedString, 字节集, , 项和值字串的列表。每个字串都由一个NULL字符分隔，最后一个字串后面用两个NULL字符中止
    .参数 nSize, 整数型, , lpReturnedString缓冲区的大小。在windows系统中最大值为32767
    .参数 lpFileName, 文本型, , 初始化文件的名字。如没有指定完整路径名，windows就在Windows目录中查找文件

.DLL命令 DLL命令1