>>20 受け側はすでに完成されたプログラムでコードまで 判別できないのですが「 」とか「・」が表示されています。 ネットで、【5.本日のお題 WM_CHAR による2バイト文字取得サンプル】 procedure THoge.WMChar(var Message: TWMKey); var CH, CL: Char; M: TMsg; S: String; begin if Message.CharCode in [$20..$7E, $A0..$FF] then // 1バイト文字 S := Chr(Message.CharCode) else begin // 2バイト文字 CH := Chr(Message.CharCode); if (CH in LeadBytes) and PeekMessage(M, Handle, 0, 0, PM_NOREMOVE) and (M.Message = WM_CHAR) and (M.wParam in [$40..$FF]) and PeekMessage(M, Handle, 0, 0, PM_REMOVE) then begin CL := Chr(M.wParam); S := CH + CL; end; end; end; みたいなサンプルを拾ったのですが Delphiなのでさっぱりわかりません・・・。 似たようなことをやっているのでしょうか?