var h:hwnd; s:string; i:integer; begin s:='hello'; for i:=1 to length(s) do begin h:=childwindowfrompoint(findwidow('notepad',nil),point(50,50)); if i <> 0 then sendmessage(h,wm_char,ord(s[i]),0); end; 以上代碼可向記事本的光標處發送字串,如果s:='你好嗎',是中文字串的話會變成錯碼?請問如何解決?(不用wm_settext,我要在光標處加入字串) 發表人 - takdick 於 2002/10/18 19:11:54

如果s:='你好嗎' 直接用你的程式Run, 很好啊

我就是試過了,但在notepad裡顯示的'An' 如果s:widestring;顯示的是些怪字符. 發表人 - takdick 於 2002/10/19 16:05:19

不知你們的系統有何差異, 我直接run你的程式除findwidow少一個n, 都很好 如果s:widestring;顯示的是些怪字符. widestring當然不可以,sendmessage(h,wm_char,ord(s[i]),0); 一次送一個byte, 而i增加時一次前進2bytes 直接模擬鍵盤看看 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21387

這麼奇怪呀.你認為會有什麼原因呢? 模擬鍵盤怎麼發送中文字嗎?是否要先切換輸入法?太麻煩了. 我聽說可用wm_copydata,不知行否?還請指教個用法,