各位前輩好...這樣的問題，可能有點奇怪... 就是小弟想知道... 如果想以程式(例如一個程序)來做到CTRL V這個貼上的動作... 該如何做，謝謝！

引言: 各位前輩好...這樣的問題，可能有點奇怪... 就是小弟想知道... 如果想以程式(例如一個程序)來做到CTRL V這個貼上的動作... 該如何做，謝謝！

CTRL V實際上就是取出Clipboard中的內容, 故你可以直接 Edit1.text:= Clipboard.asText 記得要uses Clipbrd 若不是文字, 如BitMap等也可以用Clipboard.assign(..)

除了直接使用 Clipbrd 外, 也可以用 WM_PASTE Message 的方式, 如下:    

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Memo1.Handle, WM_PASTE, 0, 0);
end;

stonys你好: 基本法如下     keybd_event(Ord(#17),0,0,0);//按下ctrl     keybd_event(Ord(#86),0,0,0);//按下v     keybd_event(Ord(#86), 0, KEYEVENTF_KEYUP, 0);//放開v     keybd_event(Ord(#17), 0, KEYEVENTF_KEYUP, 0);//放開ctrl 我只是來插花...

------
======================
昏睡~
不昏睡~
不由昏睡~

這個程式就是 1.先傳資料到clipperboard 2.再傳Ctrl-V鍵到另一個應用程式，應用程式就自行取得clpperboard的資料    用Senderkey及Hook 作成的詞庫貼（附Source） http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29551 程式我研究了好幾年，寫得不好，但勉強可以用，不知是不是你要的 努力會更接近成功

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

因我想做的是類似'貼多多'可以用熱鍵控制多次的複製貼上... 而不是對自己開發的程式作複製貼上... 因此ccchen版主的回答我比較用不上，但還是感謝指導！ timhuang大大的回答比較接近我的答案...故答題得分指定給他！ 而ko大大的回答很有趣，但是當我熱鍵設定為ctrl '某按鍵時' 若ctrl按住...則熱鍵觸發只有第一次可以正確執行...第二次之後就失效... 但您的方式我會記住應用在其他方面的！

引言: 這個程式就是 1.先傳資料到clipperboard 2.再傳Ctrl-V鍵到另一個應用程式，應用程式就自行取得clpperboard的資料 用Senderkey及Hook 作成的詞庫貼（附Source） http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29551 程式我研究了好幾年，寫得不好，但勉強可以用，不知是不是你要的 努力會更接近成功

P SIR 謝謝您 因為文章發表完才看到您的回應... 我想我要作的應該跟您的東西差不多... 我會研究看看的，謝謝！

再請教一下...該如何得知目前Focus的handle呢？ 例如：筆記本...

若是要自行找其他 window 的 handle , 可以使用 FindWindow, 若是要找目前 focus 的 window handle, 可以使用 GetForegroundWindow !!