使用 Screen.Imes 取安裝的輸入法，XP可以正常取到，Vista/7 確是空的，WHY? 該如何解決?

哦! 我不是要回解答, 只是看那麼久沒有人有答案, 而我也是有這個問題

//這是在xp下可以取得輸入法的code, 要uses imm
//偵測目前作用中的輸入法檔案名稱
function TSysUT.GetImeFileName: string;
var szImeFileName: array[0..MAX_PATH] of char;
begin
if ImmGetDescription(GetKeyboardLayout(0), szImeFileName, MAX_PATH) <> 0 then
result:= AnsiUpperCase(StrPas(szImeFileName))
else result:= '';
end;

從vista之後就不支援Ime了，改成一個叫Text Service的東東，可是我看delphi 20007 、 delphi 2009 裡面還是用Ime的方式去切換輸入法。delphi 2010不知道有沒有解。

之前參考這篇要去修改切換輸入法，結果試了很久試不出來。。。最多取到語系，輸入法取出不來。

http://delphi.ktop.com.tw/board.php?cid=30&fid=76&tid=88526

最後乾脆從C#去把那個TextService的東東弄成Com，再來餵給delphi。

------
何需Coding爭峰
千人指 萬人鋒
敢問Coding頂峰
三尺秋水塵不染
天下無雙

可否提供您寫的COM，會不會因為使用C#，導致必須安裝.Net Framework.

我是用visual stdio去轉的 因為vista 跟 windows 7 都至少會裝 .net framework 所以不用擔心客戶那邊的問題

至於com的部分我就不能提供啦 抱歉^^" 不過我可以給你visual stdio的程式碼 其實也只是參考 code6421 前輩的文章轉的

使用此方法要判斷 作業系統是哪一版 因為xp 2000 還是可以使用 ime 來呼叫輸入法的

檔案我放在這
http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=99979

------
何需Coding爭峰
千人指 萬人鋒
敢問Coding頂峰
三尺秋水塵不染
天下無雙

編輯記錄

謝謝， 我試試。