只有20分了，求教怎样实现如下的监测功能(20分)

qczyy · 2006-11-22

因要给一进销存程序写外挂程序，需要首先登陆进销存程序后，才能运行外挂程序，
问题：运行外挂程序前怎样监测到进销存程序已经登陆，
我想应该有两种方法吧，一是监测原来程序的进程是否存在，二是监测原来程序是否连接到数据库。
该如何实现上述功能呢？

whatdelphi · 2006-11-23

if findwindow(nil,'程序窗体名')<>nil then
//程序运行中
else
//程序未运行