输入法实际上也是exe,你可以取exe的图标即可,不过这不是正统的方法,应该用IMM单元里面的函数进行处理。

解决方案 »

  1.   

    我用了ExtractAssociatedIcon(hInstance,'c:\Windows\System\winabc.ime',i);
    可是不行,IMM的函数我也看过了,并没有找到相应的函数。
      

  2.   

    不知道你怎么样?我反正是成功的。
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i:integer;
    begin
      i:=0;
      image1.Picture.Icon.Handle:=ExtractIcon(hinstance,'c:\winnt\system32\PINTLGNT.IME',i);
      caption:=SysErrorMessage(getlasterror);
    end;
      

  3.   

    SHGetFileInfo()可以取得大小图标。你自己看吧。