急求输入法调用及网络状态检测程序,付费!有兴趣的联系.

Question

急求输入法调用及网络状态检测程序,付费!有兴趣的联系.QQ46159206

Answer 1

输入法调用这不复杂，“网络状态检测”是个什么概念？测什么呢？sql的连接还是其他的什么状态？QQ190814570

Answer 2

Var ImeName:string;
procedure TKeyFrame.OpenIme(imename:string);
var
I:integer;
myhkl:hkl;
begin
  if ImeName<>''then
  begin
    if screen.Imes.Count>=0 then
    begin
     I:=screen.Imes.indexof(imename);
     myhkl:=hkl(screen.Imes.objects[i]);
     ActivateKeyboardLayout(myhkl, KLF_ACTIVATE);//设置相应的输入法
    end;
  end;
end;
procedure TKeyFrame.CloseIme;
var
 myhkl:hkl;
begin
 myhkl:=GetKeyBoardLayOut(0);
 if  ImmIsIME(myhkl)then
 ImmSimulateHotKey(Application.Handle,IME_CHotKey_IME_NonIME_Toggle);
end;