read:<br>var <br> IMEName: array [0..9] of char;<br>begin<br> if GetKeyboardLayoutName(@(IMEName[0])) then<br> showmessage('Current IME is '+ StrPas(PChar(@(IMEName[0]))));<br>end;<br><br>set:<br> Edit1.ImeName := '智能ABC输入法'