如何发汉字给其他程序而不出现乱码 (不切换输入法状态) (30

  • 主题发起人 刘麻子
  • 开始时间
什么意思?谁的代码??
 
分数不是问题,哪位给出满意解决方案(在EN状态下发汉字消息不乱码),我出1000分!!  :)
 
记得以前的DOS是不能显示汉字的,后来有人给改进了一下,就能显示汉字了.如果用记事本的话,这个纯文本不存在编码转换的问题,但多文本的不好弄了.所以,麻兄,办法总是有的,慢慢找就是了.或者找个折中的办法,自己在程序里做一个字库的连接怎么样?<br>我不知道.
 
&nbsp;字库的连接啥意思?? &nbsp; [:)]
 
你的程序我运行了<br>在enable状态下,打开记事本什么都没有拦截<br>
 
这个可能是个什么函数,我真的不知道的.<br>那些DOS为什么能显示汉字,搞清楚一下,也许就能做到的.
 
dos显示汉字似乎是保存了每个汉字的点阵。。。。<br>然后硬“画”出来的,所以用在这里可能不合适 [:(]
 
to wqhatnet,能详细说说吗?什么操作系统?<br>平常的按键是不拦截,要按住~不放,然后按其他键,才得到汉字,是我做了限制 :)
 
刘麻子,还解决不了呀.<br><br>能不能把你现在的代码发给我,我来看看.<br><br><br>你是不是做外挂呀???
 
我那代码下载地址:<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;http://www.efile.com.cn/efile/liumazi/Testing.rar<br>
 
学习学习,好东西,正要用到这方面的知识,收藏先
 
刚刚测试,2000下不会出现乱码。
 
刚刚测试,98下也没有出现乱码。
 
&nbsp;555 ,word里面也没有吗? &nbsp; &nbsp;郁闷 &nbsp; !! <br>&nbsp; 但是在有的环境就是有 ,得到 : &nbsp;à???ú?ìúúú &nbsp;这样的字符 :(
 
if f3 = 0 then Exit;<br>&nbsp; &nbsp; &nbsp; &nbsp; begin<br>// &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;SendMessage(f3, $0286, (ord(S[1]) shl 8) + ord(S[2]), 0);<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SendMessage(f3, wm_char, (ord(S[1]) shl 8) + ord(S[2]), 0);<br>&nbsp; &nbsp; &nbsp; &nbsp; end;<br><br>可以不用 WM_IME_CHAR($0286)
 
if f3 = 0 then Exit;<br>&nbsp; &nbsp; &nbsp; &nbsp; begin<br><br>// &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;SendMessage(f3, $0286, (ord(S[1]) shl 8) + ord(S[2]), 0);<br><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SendMessage(f3, wm_char,$e2da, 0);<br>&nbsp; &nbsp; &nbsp; &nbsp; end;<br>&nbsp; &nbsp; &nbsp; end;
 
&nbsp;发 '疒' &nbsp;得到 &nbsp;'陴' &nbsp;.... &nbsp;??
 
if f3 = 0 then Exit;<br>&nbsp; &nbsp; &nbsp; &nbsp; begin<br><br>// &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;SendMessage(f3, $0286, (ord(S[1]) shl 8) + ord(S[2]), 0);<br><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SendMessage(f3, wm_char,$e2da, 0);<br>&nbsp; &nbsp; &nbsp; &nbsp; end;<br>&nbsp; &nbsp; &nbsp; end;
 
SendMessage(f3, wm_char, (ord(S[2]) shl 8) + ord(S[1]), 0);
 
我这边 SendMessage(f3, wm_char,$e2da, 0); 对delphi代码编辑器无效 。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部