델 님이 쓰신 글 :
: 안녕하세요.
:
: 키보드에서 한/영키를 눌러도 항상 영문자로 입력 받기를 원합니다.
: Password 입력 값을 영문자로 관리 하고 싶어서요.

{---------------------------}
{      영문입력상태 만들기           }
{---------------------------}
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;