调用系统dll 安装极品五笔出错, 放源码求助(P版)

wjscxs · 发表于 2012-4-12 16:48:22

本帖最后由 wjscxs 于 2012-4-16 15:04 编辑

代码有错误,求P版看下

#AutoIt3Wrapper_run_debug_mode=y
$hanlde
FileInstall("Z:\LocalUser\DataBase\1\wubi\wubi.ime",@WindowsDir & '\system32\wubi.ime')
FileInstall("Z:\LocalUser\DataBase\1\wubi\wubi.mb",@WindowsDir & '\system32\wubi.mb')
RegWrite("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Keyboard Layouts\E0200804","Ime File","REG_SZ","wubi.ime")
RegWrite("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Keyboard Layouts\E0200804","Layout File","REG_SZ","kbdus.dll")
RegWrite("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Keyboard Layouts\E0200804","Layout Text","REG_SZ","极品五笔输入法")
RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload",6,"REG_SZ","E0200804")
$mk=DllCall("imm32.dll", "ptr", "ImmInstallIME", "str", "wubi.ime", "str", "极品五笔输入法")
DllCall("user32.dll","long","LoadKeyboardLayout","str","E0200804","uint",0x00000008)
DllCall("user32.dll","long","ActivateKeyboardLayout","long",$mk,"uint",0x00000008)
$config=DllCall("imm32.dll","Bool","ImmConfigureIME","long",$handle,"int",1,"ptr","")
$done=DllCall("imm32.dll","bool","ImmIsIME","long",$mk)

传个Delphi7 源码

user3000 · 发表于 2012-4-12 18:47:50

回复 1# wjscxs

标题: 极品五笔输入法安装源码
容易引起岐义.
修改下标题吧, 比如: Dll 安装极品五笔出错, 放源码求助

不会DLL, 帮顶个!

wjscxs · 发表于 2012-4-14 14:12:42

来个高手

星雨朝霞 · 发表于 2012-4-14 14:14:44

路过帮顶!不懂DLL

haijie1223 · 发表于 2012-4-14 16:51:46

请楼主提供一下全部代码和imm32.dll文件。
11行的$form是什么东西？

wjscxs · 发表于 2012-4-16 07:22:38

回复 6# haijie1223

我也不知道啊，我不知道那个函数怎么调用呢？

wjscxs · 发表于 2012-4-17 07:13:11

dump 1st

wjscxs · 发表于 2012-4-18 08:42:29

Dump 2nd

wjscxs · 发表于 2012-4-19 15:05:24

dump 4th

wjscxs · 发表于 2012-4-20 09:47:08

dump 5th

XiaoFang · 发表于 2012-4-23 10:08:25

不懂不懂望高手出现

		自动登录	找回密码
密码			加入

[系统综合] 调用系统dll 安装极品五笔出错, 放源码求助(P版)

本帖子中包含更多资源

评分

相关帖子