한영 변환 방법

{---------------------------}
{      영문입력상태 만들기           }
{---------------------------}
procedure SetEng(Hand: HWnd);
var
  hIMC: integer;
  dwSentence : DWORD;
  dwConversion : DWORD;

begin
   hIMC := ImmGetContext(Hand);
   if ImmGetConversionStatus(hIMC, dwConversion, dwSentence) then begin
     dwConversion := dwConversion and $fffffffe;
     ImmSetConversionStatus(hIMC, dwConversion , dwSentence);
   end;
end;

{---------------------------}
{       한글 입력상태  만들기        }
{---------------------------}
procedure SetHan(Hand: HWnd);
var
  hIMC: integer;
  dwSentence : DWORD;
  dwConversion : DWORD;

begin
   hIMC := ImmGetContext(Hand);
   if ImmGetConversionStatus(hIMC, dwConversion, dwSentence) then
     ImmSetConversionStatus(hIMC, IME_CMODE_NATIVE, dwSentence);
end;

 

 

출처 : 볼랜드포럼  (작성자: 문성운 [moon9424] )