[Delphi] 현재 IMM 상태 (한글/영문) 체크, 변경

현재 폼의 IMM 상태가 한글이면 True, 영문이면 False 를 반환하는 함수.

 

 

 

 

// uses 에 Imm 추가

 

function TForm1.한글: Boolean;

var

  IMC: HIMC;

begin

  IMC:=ImmGetContext(Self.Handle);

  if ImmGetOpenStatus(IMC) then Result:=True

  else                          Result:=False;

  ImmReleaseContext(Self.Handle, IMC);

end;

 

 

 

 

현재 폼의 IMM 상태를 영문으로 변경.

 

 

 

 

// uses 에 Imm 추가

 

procedure TForm1.영문으로_변경;

var

  IMC: HIMC;

begin

  IMC:=ImmGetContext(Self.Handle);

  ImmSetConversionStatus(IMC, 0, 0);

  ImmReleaseContext(Self.Handle, IMC);

end;