易语言枚举并预览系统字体源码

枚举并预览系统字体系统结构:窗口函数,设置字体,取高字,取低字,枚举字体函数,CreateWindowEx,RegisterClassEx,ShowWindow,UpdateWindow,GetModuleHandle,DefWindowProc,DispatchMessage,GetMessage,TranslateMessage,LoadCursor,LoadIcon,PostQuitMessage,SendMessage,CreateFont,DeleteObject,GetDC,EnumFontFamilies,EnumFonts, ======程序集1 || ||------_启动子程序 || ||------窗口函数 || ||------设置字体 || ||------取高字 || ||------取低字 || ||------枚举字体函数 || || ======调用的Dll || ||---[dll]------CreateWindowEx || ||---[dll]------RegisterClassEx || ||---[dll]------ShowWindow || ||---[dll]------UpdateWindow || ||---[dll]------GetModuleHandle || ||---[dll]------DefWindowProc || ||---[dll]------DispatchMessage || ||---[dll]------GetMessage || ||---[dll]------TranslateMessage || ||---[dll]------LoadCursor || ||---[dll]------LoadIcon || ||---[dll]------PostQuitMessage || ||---[dll]------SendMessage || ||---[dll]------CreateFont || ||---[dll]------DeleteObject || ||---[dll]------GetDC || ||---[dll]------EnumFontFamilies || ||---[dll]------EnumFonts 调用的DLL命令: .DLL命令CreateWindowEx,整数型,"user32","CreateWindowExA",,建立窗口　 .参数dwExStyle,整数型 .参数lpClassName,文本型 .参数lpWindowName,文本型 .参数dwStyle,整数型 .参数x,整数型 .参数y,整数型 .参数nWidth,整数型 .参数nHeight,整数型 .参数hWndParent,整数型 .参数hMenu,整数型 .参数hInstance,整数型 .参数lpParam,整数型 .DLL命令RegisterClassEx,整数型,"user32","RegisterClassExA",,　 .参数pcWndClassEx,WNDCLASSEX .DLL命令ShowWindow,整数型,"user32","ShowWindow",,控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性）　如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零） .参数hwnd,整数型,,窗口句柄，要向这个窗口应用由nCmdShow指定的命令 .参数nCmdShow,整数型,,为窗口指定可视性方面的一个命令。请用下述任何一个常数;SW_HIDE：隐藏窗口，活动状态给令一个窗口;SW_MINIMIZE：最小化窗口，活动状态给令一个窗口;SW_RESTORE：用原来的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOW：用当前的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOWMAXIMIZED：最大化窗口，并将其激活;SW_SHOWMINIMIZED：最小化窗口，并将其激活;SW_SHOWMINNOACTIVE：最小化一个窗口，同时不改变活动窗口;SW_SHOWNA：用当前的大小和位置显示一个窗口，不改变活动窗口;SW_SHOWNOACTIVATE：用最近的大小和位置显示一个窗口，同时不改变活动窗口;SW_SHOWNORMAL：与SW_RESTORE相同; .DLL命令UpdateWindow,整数型,"user32","UpdateWindow",,强制立即更新窗口，窗口中以前屏蔽的所有区域都会重画（在vb里使用：如vb窗体或控件的任何部分需要更新，可考虑直接使用refresh方法　非零表示成功，零表示失败 .参数hwnd,整数型,,欲更新窗口的句柄; .DLL命令GetModuleHandle,整数型,"kernel32","GetModuleHandleA",,获取一个应用程序或动态链接库的模块句柄　如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError .参数lpModuleName,文本型,,指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD; .DLL命令DefWindowProc,整数型,"user32","DefWindowProcA",,调用缺省窗口过程　 .参数hwnd,整数型 .参数wMsg,整数型 .参数wParam,整数型 .参数lParam,整数型 .DLL命令DispatchMessage,整数型,"user32","DispatchMessageA",,向窗口发送消息　 .参数lpMsg,MSG .DLL命令GetMessage,整数型,"user32","GetMessageA",,从线索消息队列中返回一条消息　 .参数lpMsg,MSG .参数hwnd,整数型 .参数wMsgFilterMin,整数型 .参数wMsgFilterMax,整数型 .DLL命令TranslateMessage,整数型,"user32","TranslateMessage",,转换虚拟关键字消息　 .参数lpMsg,MSG .DLL命令LoadCursor,整数型,"user32","LoadCursorA",,从指定的模块或应用程序实例中载入一个鼠标指针。LoadCursorBynum是LoadCursor函数的类型安全声明　执行成功则返回已载入的指针的句柄；零表示失败。在Windows;95和Win16环境中，这个函数只能载入标准尺寸的图标 .参数实例句柄,整数型,,一个DLL的模块句柄；或者一个实例句柄，指定包含了鼠标指针的可执行程序 .参数鼠标指针标识,整数型,,作为一个字串，指定欲载入的指针资源。作为一个长整数值，指定欲载入的资源ID；或者设置一个常数，代表某幅固有系统指针。如装载的是一个固有系统指针，注意hInstance参数应设为零。在api32.txt文件中以前缀IDC_作为标志; .DLL命令LoadIcon,整数型,"user32","LoadIconA",,从指定的模块或应用程序实例中载入一个图标。其中，LoadIconBynum是LoadIcon函数的类型安全声明　执行成功则返回已载入的图标的句柄；零表示失败。会设置GetLastError .参数实例句柄,整数型 .参数图标标识,整数型 .DLL命令PostQuitMessage,,"user32","PostQuitMessage",,通知WINDOWS线索将中断　 .参数nExitCode,整数型 .DLL命令SendMessage,整数型,"user32","SendMessageA",,调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum，;SendMessageByString是该函数的“类型安全”声明形式　由具体的消息决定 .参数窗口句柄,整数型,,要接收消息的那个窗口的句柄 .参数信息值,整数型,,消息的标识符 .参数参数一,整数型,,具体取决于消息 .参数参数二,整数型,,具体取决于消息; .DLL命令CreateFont,整数型,"gdi32","CreateFontA",,用指定的属性创建一种逻辑字体　执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError .参数nHeight,整数型,,IfHeight .参数nWidth,整数型,,IfWidth .参数nEscapement,整数型,,IfEscapement .参数nOrientation,整数型,,IfOrientation .参数fnWeight,整数型,,IfWeight .参数fdwItalic,整数型,,IfItalic .参数fdwUnderline,整数型,,IfUnderline .参数fdwStrikeOut,整数型,,IfStrikeOut .参数fdwCharSet,整数型,,IfCharSet .参数OutputPrecision,整数型,,IfOutputPrecision .参数ClipPrecision,整数型,,IfClipPrecision .参数Quality,整数型,,IfQuality .参数PitchAndFamily,整数型,,IfPitchAndFamily .参数lpszFace,文本型,,IfFaceName; .DLL命令DeleteObject,整数型,"gdi32","DeleteObject",,用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放　非零表示成功，零表示失败 .参数对象句柄,整数型,,一个GDI对象的句柄; .DLL命令GetDC,整数型,"user32","GetDC",,获取指定窗口的设备场景　指定窗口的设备场景句柄，出错则为0 .参数hwnd,整数型,,将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC; .DLL命令EnumFontFamilies,整数型,"gdi32","EnumFontFamiliesA",,列举指定设备可用的字体　由回调函数返回的前一个值 .参数设备场景句柄,整数型,,设备场景的句柄 .参数枚举的字体资源,文本型,,欲枚举的字体家族。如指定vbNull，可枚举出每种可用字体家族中的一种字体 .参数函数地址,整数型,,欲调用的函数地址。这个地址是用AddressOf运算符为来自一个标准模块的函数进行操作，或者利用某个回调控件得到 .参数自定义值,整数型,,指定希望传递给回调函数的一个用户自定义值; .DLL命令EnumFonts,整数型,"gdi32","EnumFontsA",,列举指定设备可用的字体　 .参数设备场景句柄,整数型 .参数枚举的字体资源,文本型 .参数函数地址,子程序指针 .参数自定义值,整数型