很关键的98与2K汉字输入问题！(100分)

NNNNNN · 2003-01-20

该程序向当前光标处插入一串字符，在98下运行正常，当在2K下若这串字符是双字节的则 不能正常运行，为什么？有谁能够回答？ procedure SendKeys(sSend: String); var     I: Integer;     Focushld,Windowhld: Hwnd;     Threadld: Dword;     CH: byte; begin   Windowhld := GetForegroundWindow;   Threadld  := GetWindowThreadProcessId(Windowhld,nil);   AttachThreadInput(GetCurrentThreadId,Threadld,True);   Focushld := GetFocus;   AttachThreadInput(GetCurrentThreadId,Threadld,False);   if Focushld = 0 then Exit;   I := 1;   while I <= Length(sSend) do     begin       CH := Byte(sSend);       if Windows.IsDBCSLeadByte(CH) then         begin           Inc(I);           SendMessage(Focushld, WM_IME_CHAR, MakeWord(Byte(sSend), CH), 0);         end       else         SendMessage(Focushld, WM_IME_CHAR, Word(CH), 0);       Inc(I);     end; end;

sanmzhou · 2003-01-23

哎哟，哥们，我们真是同病相连呀！我下面这段代码，是向一个窗口中传送字母或汉字， 经测试在2k下一切正常，但在98下，向单层窗口（如记事本）能正常显示传送的汉字， 但在多层窗口，如word中，必须将自己打开中文输入法才能正常显示汉字，否则显示为 乱码！你可以参考一下，也帮我查一下错，互相帮助拉！ /////////////////////////////////// // 向当前窗口输出内容 /////////////////////////////////// function input_process(var str : array of char ; outlen : integer ; Frm_H : THandle) : boolean ; stdcall; var   h_Wnd : HWND;   num : array[0..3] of char ;   dwThreadID, dwCurrentThreadID : DWORD;   pt: TPoint;   CR_flag : BYTE;   old_hkl ,myhkl: HKL;   setflag : integer;   i : integer;   main_handle : THandle; begin   main_handle := Frm_H;   CR_flag := $0d;   setflag := 0;     //检查哪个窗口掌握光标     GetCursorPos(pt);     h_Wnd := WindowFromPoint(pt);     //获得光标所有者的线程ID     dwThreadID := GetWindowThreadProcessId(h_Wnd,nil);     //获得当前线程的ID     dwCurrentThreadID := GetCurrentThreadId();     old_hkl := GetKeyBoardLayOut(0);  //保存旧的HKL     if (dwCurrentThreadID <> dwThreadID) then  //如果输入焦点在别的线程     begin       if AttachThreadInput(dwThreadID,dwCurrentThreadID,True) then //连接线程       begin         h_Wnd := GetFocus();         if outlen = 1 then //如串口内容为单个字符         begin           num[0] := str[0];           if ord(num[0]) = $08 then           begin             keybd_event( VK_BACK,VK_BACK,KEYEVENTF_EXTENDEDKEY,0 );             keybd_event( VK_BACK,VK_BACK,KEYEVENTF_KEYUP,0);           end else if ord(num[0]) = $0A then           begin             keybd_event( VK_RETURN,VK_RETURN,KEYEVENTF_EXTENDEDKEY,0 );             keybd_event( VK_RETURN,VK_RETURN,KEYEVENTF_KEYUP,0);           end else             SendMessage(h_Wnd,WM_IME_CHAR,ord(num[0]),0);         end         else if outlen = 2 then  //如串口内容为双字节，打开汉字输入法         begin           if screen.Imes.Count = 0 then   //screen.Imes.Count 得到系统中文输入法个数           begin             showMessage(addIME);             exit;           end;           if not ImmIsIME(GetKeyBoardLayOut(0)) then //判断是否在中文状态,若不是           begin             myhkl:=hkl(screen.Imes.objects[screen.Imes.Count-1]);             //得到objects[screen.Imes.Count-1]对应的HKL句柄             activatekeyboardlayout(myhkl,KLF_ACTIVATE);//让得到的HKL句柄起作用           setflag :=1 ;           end;           for i:=0 to 1 do             PostMessage(h_Wnd,WM_CHAR,WPARAM(str),1);   //使用WM_CHAR信号           if setflag = 1 then            //如打开了新的中文输入法,则关闭它           begin             activatekeyboardlayout(old_hkl,KLF_ACTIVATE);//让旧的HKL句柄起作用。             setflag := 0;           end;           AttachThreadInput(dwThreadID,dwCurrentThreadID,False); //解除线程连接         end;       end;     end; end;

刘麻子 · 2004-04-18

http://www.2ccc.com/article.asp?articleid=942

很关键的98与2K汉字输入问题！(100分)

NNNNNN

Unregistered / Unconfirmed

sanmzhou

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

Similar threads