易语言强行兼容高DPI源码

系统结构:开启高DPI兼容,SetProcessDPIAware,Call,设置全局默认字体,LoadLibrary,GetProcAddress,FreeLibrary,CreateFont,GetStockObject,DeleteObject,

======wz_强行兼容高DPI
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 开启高DPI兼容
           |  |
           |  |------ SetProcessDPIAware
           |  |
           |  |------ Call
           |  |
           |  |------ 设置全局默认字体
           |  |
           |  |------ _HookGetStockObject
           |  |
           |  |------ _HookDeleteObject
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   LoadLibrary
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   FreeLibrary
           |  |
           |  |---[dll]------   CreateFont
           |  |
           |  |---[dll]------   GetStockObject
           |  |
           |  |---[dll]------   DeleteObject

调用的DLL命令:

.DLL命令 LoadLibrary, 整数型, "kernel32", "LoadLibraryA", , 载入指定的动态链接库，并将它映射到当前进程使用的地址空间。一旦载入，即可访问库内保存的资源  成功则返回库模块的句柄，零表示失败。会设置GetLastError
    .参数 lpLibFileName, 文本型, , 指定要载入的动态链接库的名称。采用与CreateProcess函数的lpCommandLine参数指定的同样的搜索顺序;

.DLL命令 GetProcAddress, 整数型, "kernel32", "GetProcAddress", , 返回函数地址
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 FreeLibrary, 整数型, "kernel32", "FreeLibrary", , 释放指定的动态链接库，它们早先是用LoadLibrary ;    API函数装载的  非零表示成功，零表示失败。会设置GetLastError
    .参数 hLibModule, 整数型, , 要释放的一个库句柄在VB里使用只能用这个函数释放那些由应用程序明确装载的DLL。对LoadLibrary的每一次调用都应该有一个对应的FreeLibrary调用;

.DLL命令 CreateFont, 整数型, "gdi32", "CreateFontA", , 用指定的属性创建一种逻辑字体  执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError
    .参数 H, 整数型, , IfHeight
    .参数 W, 整数型, , IfWidth
    .参数 E, 整数型, , IfEscapement
    .参数 O, 整数型, , IfOrientation
    .参数 W, 整数型, , IfWeight
    .参数 I, 整数型, , IfItalic
    .参数 u, 整数型, , IfUnderline
    .参数 S, 整数型, , IfStrikeOut
    .参数 C, 整数型, , IfCharSet
    .参数 OP, 整数型, , IfOutputPrecision
    .参数 CP, 整数型, , IfClipPrecision
    .参数 Q, 整数型, , IfQuality
    .参数 PAF, 整数型, , IfPitchAndFamily
    .参数 F, 文本型, , IfFaceName;

.DLL命令 GetStockObject, 整数型, "gdi32", "GetStockObject", , 取得一个固有对象（Stock）。这是可由任何应用程序使用的windows标准对象之一  指向指定对象的一个句柄。零表示出错
    .参数 nIndex, 整数型, , 下述表格中定义的任何常数之一BLACK_BRUSH黑色刷子DKGRAY_BRUSH黑灰色刷子GRAY_BRUSH灰色刷子HOLLOW_BRUSH凹刷子LTGRAY_BRUSH浅灰色刷子NULL_BRUSH空刷子WHITE_BRUSH白色刷子BLACK_PEN黑色画笔NULL_PEN空画笔WHITE_PEN白色画笔ANSI_FIXED_FONT采用windows（ANSI）字符集的等宽字体ANSI_VAR_FONT采用windows（ANSI）字符集的不等宽字体DEVICE_DEFAULT_FONT设备使用的默认字体（NT）DEFAULT_GUI_FONT用户界面的默认字体，包括菜单和对话框字体（Windows 95）OEM_FIXED_FONTOEM字符集的固有字体SYSTEM_FONT屏幕系统字体。这是用于菜单、对话框等等的默认不等宽字体SYSTEM_FIXED_FONT屏幕系统字体。这是用于菜单、对话框等等的默认等宽字体（在windows 3.0之前使用）DEFAULT_PALETTE默认调色板;

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放  非零表示成功，零表示失败
    .参数 hObject, 整数型, , 一个GDI对象的句柄;