我想自己做一個數字鍵盤，用此鍵盤向其他應用程序輸入信息。請問我怎樣獲取應用程序的活動輸入框兵輸入信息呢。就像WINDOWS的輸入法一樣。謝謝指教。

cxg 您好：    以 小鍵盤 或是 螢幕鍵盤 為關鍵字搜尋站上資料，可以獲得一些相關的討論資料，例如： 如何自製一個螢幕鍵盤 http://delphi.ktop.com.tw/topic.php?topic_id=42646

这个方比较好： procedure TForm1.Button1Click(Sender: TObject); var npad:HWND; i,j:integer; begin //須先閞NotePad Npad := FindWindow(nil, '未命名 - 記事本'); if npad <> 0 then begin BringWindowToTop(Npad); //使其成為focus之window for j:=1 to 5 do begin for i := ord('A') to ord('Z') do begin //大小寫均同 keybd_event(i, 0, 0, 0); //keydown此鍵 keybd_event(i, 0, KEYEVENTF_KEYUP, 0); //keyup keybd_event(VK_SHIFT, 0, 0, 0); //按著Shift ,使成為大寫 keybd_event(I, 0, 0, 0); //keydown keybd_event(I, 0, KEYEVENTF_KEYUP, 0); //keyup keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0); //放開shift end; keybd_event(VK_RETURN, 0, 0, 0); //換行 keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0); end; end; end;