在做輸入時,會出現 shift 數字鍵 的浮動視窗 想請問如何利用程式偵測視窗是否有出現.. 感謝

procedure TForm1.Button1Click(Sender: TObject);
var
    hCurrentWindow: HWnd;
    szText: array[0..254] of char;
    sText : String;
begin
  //取Active window
  try
  hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
  while hCurrentWindow <> 0 do
    begin
      if (GetWindowText(hCurrentWindow, @szText, 255) > 0) and
         IsWindowVisible(hCurrentWindow) then
         // 把系統 和 自己 過濾掉
         if  (StrPas(@szText) <> 'Program Manager')and(StrPas(@szText) <> 'PasteDoc') then begin
           sText := StrPas(@szText);
           if (Pos('PHON',sText)>0) then
             showmessage('有浮動視窗');
         end;
      hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);
    end;
  except
    on e: Exception do;
  end;
end;

主要是這個浮動視窗的Handle 名稱是PHON ========================================= 程式有問題並不可怕，最怕是不知問題出在那 不知問題在那不可怕，更怕是不知如何問問題 寫程式要從最簡單的開始 發表人 - shinjie 於 2005/09/08 14:02:32

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

您好..很感謝您的幫忙 還有個問題 就是" PHON" 是浮動視窗的名字 是從哪個地方看出來的.. 謝謝

引言: 您好..很感謝您的幫忙 還有個問題 就是" PHON" 是浮動視窗的名字 是從哪個地方看出來的.. 謝謝 < face="Verdana, Arial, Helvetica"> 比較有開輸入法跟沒有開輸入法時的Active window。 程式跟上面的一樣，只是輸出到一個列表，再比較一下就可以了。 ========================================= 程式有問題並不可怕，最怕是不知問題出在那 不知問題在那不可怕，更怕是不知如何問問題 寫程式要從最簡單的開始