如何利用BCB在已開啟的Word的最後加上一段文字~~~

試試以下程式碼: 不過要先開word，不然抓不到Handle~ < class="code"> #include #pragma hdrstop #include "Unit1.h" #include "Clipbrd.hpp" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { HWND Word = FindWindow(NULL,"文件1 - Microsoft Word"); //這裡可改成你word文件的title if (ShowWindow(Word,SW_SHOWNORMAL)) { TClipboard *pClipboard = new TClipboard; pClipboard->AsText="Hello Word!!"; BringWindowToTop(Word); keybd_event(VK_CONTROL, 0, 0, 0); keybd_event(VK_END, 0, 0, 0); keybd_event(VK_END, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_RETURN, 0, 0, 0); keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, 0, 0, 0); keybd_event('V', 0, 0, 0); keybd_event('V', 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); } else ShowMessage("Open Word first, please!。"); } 國泰平安

引言: 可以不用改檔名就可以抓到嗎~~~~~ 可以大概解釋一下嗎?? 有點懂~~~可是又不太懂~~~~@@

這是FindWindow()的用法，    The FindWindow function retrieves the handle to the top-level window whose class name and window name match the specified strings. This function does not search child windows.    

HWND FindWindow(        LPCTSTR lpClassName,        // pointer to class name
    LPCTSTR lpWindowName         // pointer to window name
   );             

可以利用class name或是window name來抓程式的handle， 但是因為很多程式其實都有相同的class name，像是「網芳」和「我的電腦」 你用classname的方法，雖然可以不用指定檔名就可以抓到， 但是如果你同時開了兩個word，那它該抓那一個呢?? 所以用class name雖然方便，但不夠精準， 改用window name來抓的話，就可以避免上述的事情發生， 如果你想試試抓classname的方式， 把FindWindow那行改成這樣

BringWindowToTop(Word); keybd_event(VK_CONTROL, 0, 0, 0); keybd_event(VK_END, 0, 0, 0); keybd_event(VK_END, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_RETURN, 0, 0, 0); keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, 0, 0, 0); keybd_event('V', 0, 0, 0); keybd_event('V', 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); ~~~~這幾行什麼意義?~~~~ 我看了說明檔可是還是不懂~~~~~@@~~ ~~~~可以改成在游標上的那個位址開始插入文字嗎 ? 發表人 - hunggto 於 2003/10/16 15:56:00

引言: BringWindowToTop(Word); 把handle視窗帶到最上層 keybd_event(VK_CONTROL, 0, 0, 0); keybd_event(VK_END, 0, 0, 0); keybd_event(VK_END, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); 模擬按下Ctrl End，就是把游標移到內文中最後一個字元。 keybd_event(VK_RETURN, 0, 0, 0); keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0); 模擬按下Enter鍵 keybd_event(VK_CONTROL, 0, 0, 0); keybd_event('V', 0, 0, 0); keybd_event('V', 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); 模擬按下Ctrl V，就是「貼上」剛剛我們存到剪貼簿的字串 ~~~~這幾行什麼意義?~~~~ 我看了說明檔可是還是不懂~~~~~@@~~ ~~~~可以改成在游標上的那個位址開始插入文字嗎 ? 那就只要模擬按下Ctrl V「貼上」就好~ < face="Verdana, Arial, Helvetica"> 國泰平安