以下為jackkcg大大曾發表過的文章-【Delphi】【轉貼】螢幕抓字技術揭密 之片段~~~~    七 " 螢幕抓字"的實現     １ 用SetWindowsHookEx()安裝滑鼠?子MouseProc；  ２ 在螢幕上移動滑鼠時，系統就會調用滑鼠?子MouseProc；  ３ 進入MouseProc，獲得滑鼠的座標（x,y)， 設置對TextOut()、ExtTextOut()等的跟蹤程式， 用nvalidateRect()告訴系統該點(x,y)"失效"；  ４ 系統發出WM_PAINT消息，指示該點（x,y)處的應用程式重繪"失效"的區域。  ５ 負責繪製該點（）的應用程式在受到 WM_PAINT 消息後， 就有機會調用 TextOut()、 ExtTextOut()等函數。  ６ 調用的函數被攔截進入跟蹤程式：設置好了的跟蹤程式截獲了該次調用， 從 應用程式的堆疊中取出 該點（x,y）"文字"的指標；  ７ 從應用程式的資料段中將"文字"指標的內容取出，即完成了一次"螢幕抓字"；  ８ 退出跟蹤程式，返回到滑鼠?子MouseProc；  ９ 在MouseProc中解除對TextOut() ExtTextOut()的跟蹤；  １０ 退出MouseProc滑鼠?副程式，控制權交給系統。  １１ 在螢幕上移動滑鼠，開始下一次"螢幕抓字"，返回步驟２。     請問有高手可否指點關於:    ３ 進入MouseProc，獲得滑鼠的座標（x,y)， 設置對TextOut()、ExtTextOut()等的跟蹤程式， 用nvalidateRect()告訴系統該點(x,y)"失效"； 其中之----設置對TextOut()、ExtTextOut()等的跟蹤程式----如何實現~~~ 謝謝 發表人 - zerocool 於 2003/06/23 02:04:43

http://delphi.ktop.com.tw/topic.php?topic_id=22995 ====================== 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人