上次介绍了如何在Delphi中使用发送消息的方式控制外部程序，一开始我在自己的项目中也确实是这么做的，但是后来遇到了这么一个问题：
我所调用的程序，会在执行一段处理过程中，将结果显示到一个ListView中，那么为了知道我发出的命令，到底被那个程序执行后结果如何，我就必须监视ListView中的内容，察看最后出现的结果文字是什么，从而知道到底是成功还是失败了。那么，我的想法是，不断的查询ListView中Items的个数，并且当个数大于0的时候，取出最后一条Item（就是最后加入的结果描述），然后取得其中的文字，通过判断字符串，就可以知道结果了。
首先，ListView的窗口Handle我当然是有了，然后取得ListView中的Item个数，我发现有这么个函数可以使用：ListView_GetItemCount()，它在CommCtrl模块中有定义，其实只是对SendMessage的一个封装而已，同样的，该模块中还有另一个函数：ListView_GetItemText()，使用它可以取得指定行处的Item文字。
那么只要在我的程序中使用这两个函数就可以了咯？很抱歉，我用实际经历告诉你：这样将会导致外部程序的崩溃！！
要说明为什么，首先让我们来看一下ListView_GetItemText()函数到底做了什么（另外还有ListView_GetItemTextA和ListView_GetItemTextW这两个函数，暂时不用去理它们）：
function ListView_GetItemText(hwndLV: HWND; i, iSubItem: Integer;
pszText: PChar; cchTextMax: Integer): Integer;
var
Item: TLVItem;
begin
Item.iSubItem := iSubItem;
Item.cchTextMax := cchTextMax;
Item.pszText := pszText;
Result := SendMessage(hwndLV, LVM_GETITEMTEXT, i, Longint(@Item));
end;
相信你能看明白，它将一个字符串指针pszText放到item结构中，再用SendMessage将该结构地址传给ListView窗口，在本地程序中这当然不会有问题，但是试想一下在外部exe中的情况，Item和pszText都是我的程序中的变量，外部exe有自己的独立进程空间，同样的变量地址在它的进程空间中指向的是完全不同的数据，并且很有可能该数据正在被其它程序段使用，那么当外部程序收到Message，并向该错误的地址中写入数据的时候，程序就这么崩溃了！
难道就没有办法解决这个问题了吗？当然有！很简单，我只需要保证外部程序收到Message时，将数据写入到本地进程空间中的地址中就可以了，那么这就意味着我必须在外部程序中开辟一块内存，让SendMessage来写入，并且能够从中将数据读回来，有什么办法呢？在这里就要感谢Robert Kuster这个大师级人物了，他在以下这篇文章中详细的介绍了多种将代码注入外部程序的方法：
Three Ways to inject Your Code into Another Process
我选择了第二种，即制作一个dll，由主程序将这个dll注入到外部程序的进程空间中，以后就可以为所欲为了，哈哈！Robert Kuster的例子中，只需要用dll中的代码取一个文本框中的密码就可以了，而我的稍有不同，我需要不断的监视ListView中的状态，所以我使用了一个线程，dll被注入后，立即启动自己的线程，并进入线程循环，一直到外部程序关闭，线程会被自动关闭（所以关闭的事，我就不管了）。
另外，既然有了线程，连控制外部程序的代码都可以放在线程中，这么一来就变成这样的一个流程了：
1。主程序再虚拟桌面上启动外部程序，并将自制dll注入外部程序的进程
2。被注入的dll启动线程，线程的开始，先找到所有需要使用的窗口的WindowHandle，这一点还是用FindWnidow方法。接着打开一个共享内存区，用来和主程序通讯使用。
3。进入dll的线程循环，循环中使用一个event进入等待状态。
4。当主程序中需要使用外部程序的功能时，将控制命令写入共享内存中，然后触发event。
5。被注入dll中的线程的event被触发，它从共享内存中取得控制命令，然后使用SendMessage启动外部程序的功能，并进入循环，等待ListView中出现结束文字。
6。外部程序中的功能执行结束后，dll中的线程再以event的方式通知主程序。
好了，这下真的是“完美”实现了！
由于商业上的原因，代码我就不能公开了，如果你还有什么疑问，倒是随时欢迎来信讨论：tonyki[at]citiz.net
