易辅 发表于 2016-4-18 22:43:13

添加字体到系统

.版本 2
.支持库 shell

.程序集 窗口程序集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.文件名

.如果真结束





demonzhr 发表于 2016-8-10 23:34:48

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

naxienian1 发表于 2016-8-15 16:47:45

谢谢分享 膜拜大神啊

醉清醒 发表于 2017-1-15 21:15:25

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

xftjywx 发表于 2017-1-24 07:59:13

谢谢分享 收下了
页: [1]
查看完整版本: 添加字体到系统