添加字体到系统

易辅解答达人

易语言里粘贴即可');" value="复制代码" class="pnpnc"/>  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
_按钮2_被单击

如果真 (通用对话框1.打开 ())
编辑框1.内容 ＝ 通用对话框1.文件名

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果真 (选择框1.选中)
信息框 (“没必要把字体复制到系统字体目录啊，相应代码你自己写。方法：” ＋ #换行符 ＋ “先复制文件的系统字体目录，AddFontResourceA函数的参数改为系统字体目录＋字体文件名”, 0, )
' 先复制文件的系统字体目录，AddFontResourceA函数的参数改为系统字体目录＋字体文件名  ' 这里代码我就不写了
如果 (AddFontResourceA (编辑框1.内容) ≠ 0)
SendMessageA (65535, 29, 0, 0)  ' 即加即用的关键一句代码

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

通用对话框2.初始目录 ＝ 取特定目录 (10)

子程序名	返回值类型	公开	备 注
_按钮4_被单击

如果 (ImmInstallIMEA (编辑框2.内容, 编辑框3.内容) ≠ 0)  ' 测试时你可以删除一种输入法，再动态增加该输入法。
' 添加智能ABC例：ImmInstallIMEA (取特定目录 (10)＋“WINABC.IME”, “智能ABC”)
信息框 (“输入法添加成功！”, 0, )

子程序名	返回值类型	公开	备 注
_按钮3_被单击

如果真 (通用对话框2.打开 ())
编辑框2.内容 ＝ 通用对话框2.文件名

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果真 (通用对话框1.打开 ())<br />     编辑框1.内容 ＝ 通用对话框1.文件名<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (选择框1.选中)<br />     信息框 (“没必要把字体复制到系统字体目录啊，相应代码你自己写。方法：” ＋ #换行符 ＋ “先复制文件的系统字体目录，AddFontResourceA函数的参数改为系统字体目录＋字体文件名”, 0, )<br />     ' 先复制文件的系统字体目录，AddFontResourceA函数的参数改为系统字体目录＋字体文件名  ' 这里代码我就不写了<br /> .如果真结束<br /> .如果 (AddFontResourceA (编辑框1.内容) ≠ 0)<br />     SendMessageA (65535, 29, 0, 0)  ' 即加即用的关键一句代码<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 通用对话框2.初始目录 ＝ 取特定目录 (10)<br /> <br /> .子程序 _按钮4_被单击<br /> <br /> .如果 (ImmInstallIMEA (编辑框2.内容, 编辑框3.内容) ≠ 0)  ' 测试时你可以删除一种输入法，再动态增加该输入法。<br />     ' 添加智能ABC例：ImmInstallIMEA (取特定目录 (10)＋“WINABC.IME”, “智能ABC”)<br />     信息框 (“输入法添加成功！”, 0, )<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> <br /> .如果真 (通用对话框2.打开 ())<br />     编辑框2.内容 ＝ 通用对话框2.文件名<br /> <br /> .如果真结束

请点击此处下载

查看状态：已购买或有权限

您的用户组是：游客

文件名称：FokoE9fk.e 
下载次数：14  文件大小：6.17 KB 
下载权限： 不限  以上或 VIP会员   [购买VIP]   [充值积分]  [免费赚积分]

demonzhr

谢谢分享 收下了 努力学习 ！易辅好论坛，我就是论坛币不够用·~~~~! 是网盘下载吗   ？？

naxienian1

谢谢分享 膜拜大神啊

醉清醒

楼主超给力，易辅学院真是难得给力的平台啊。

xftjywx

谢谢分享 收下了