這段程式碼是由版上某位前輩所提供的
主要功能是傳送中文字串至其他應用程式

經過測試之後，晚輩碰上幾個難題

第一個是『它沒辦法在Word上正確的傳送中文字，會變成類似韓文之類的亂碼』
晚輩有試著調整Word的編碼及字體但皆無效

第二個是『無法將字串傳送至Yahoo!!的搜尋引擎的欄位』


最後晚輩在測試此程式是否能傳送字串到Delphi開發的軟體時發現
『無法傳送至DB相關元件(像DBEdit)』

可否請各位前輩協助晚輩解決這樣的難題

[code delphi]
procedure TForm1.Edit2DblClick(Sender: TObject);
var hFocusWin: HWND;
str: Utf8String;
b: byte;
begin
if AttachThreadInput(GetCurrentThreadId(), GetWindowThreadProcessId(LastEditHandle, nil), true) then begin
BringWindowToTop(LastEditHandle);
hFocusWin := GetFocus();
AttachThreadInput(GetCurrentThreadId(), GetWindowThreadProcessId(LastEditHandle, nil), false);
if hFocusWin <> null then begin
str :=Edit2.Text;
while str<>'' do begin
b := Byte(str[1]);
if IsDBCSLeadByte(b) then begin
PostMessage(hFocusWin, WM_IME_Char, MakeWord(Byte(str[2]), b), 0); // MakeWord(LowByte, HighByte)
Delete(str, 1, 2);
end else begin
PostMessage(hFocusWin, WM_IME_Char, Word(b), 0);
Delete(str, 1, 1);
end;
end;
end
else ShowMessage('GetFocus() failed!');
end
else ShowMessage('AttachThreadInput() failed!');
end;

[/code]

編輯記錄

你的程式，我測過了，確實不行。
首先第一行就不太好(DoublClick)，因為windows游標只有一個，當DoubleClick後游標在那裏呢?
但以下的方式可以
[Delphi]如何利用Sendmessage或Postmessage函数？？？？~
http://zhidao.baidu.com/question/46195415.html
===================引 用 pia011320 文 章===================

這段程式碼是由版上某位前輩所提供的
主要功能是傳送中文字串至其他應用程式

經過測試之後，晚輩碰上幾個難題

第一個是『它沒辦法在Word上正確的傳送中文字，會變成類似韓文之類的亂碼』
晚輩有試著調整Word的編碼及字體但皆無效
可以，請參考上面連結。
第二個是『無法將字串傳送至Yahoo!!的搜尋引擎的欄位』
可以，請參考上面連結。

最後晚輩在測試此程式是否能傳送字串到Delphi開發的軟體時發現
『無法傳送至DB相關元件(像DBEdit)』
可以，請參考上面連結。
可否請各位前輩協助晚輩解決這樣的難題

結論:不可以用，測了很久，由於IsDBCSLeadByte它們是用byte的方式，在Delphi2009試都不行，是可惜的地方。

------
努力會更接近成功