怎么取得Vista系统的输入法

如何取得Vista系统的输入法
for   i   :=   0   to   Screen.Imes.Count   -   1   do
    begin
        s   :=   Screen.Imes[i];
        if   RZCBIME.Items.IndexOf(s)   <   0   then
            RzCBIME.Items.Add(s);
    end;

只取到一个王码五笔！
各位兄弟帮帮忙……

[解决办法]
帮你顶，还没用上Vista
[解决办法]
我也试了下，确实是这样，我只可以取到微软拼音和王码五笔