如何监视其他程序的运行？

在Timer事件中：if findwindow('计算器',nil)<>0 then
     SendMessage(findwindow('计算器',nil),WM_CLOSE,0,0); 

解决方案 »

  1.   

    to ：　nne998(上上下下左右左右BABA)　
    请问什么组件有timer事件，你这里指的是什么组件？
      

  2.   

    当然是 Timer控件了，在system页里的，把 interval设成1 (ms) 就行了
      

  3.   

    用TTimer太耗费资源，用HOOK比较好一点
      

  4.   

    是啊！用TIMER的话（特别是把INTERVAL设为1 的话），太频繁了，耗费资源！
      

  5.   

    to qdshen(qdshen):
    time耗费资源？？ 你可不知道你运行的程序有多少是用timer的了、、、、呵呵而且设成 1ms，实际上是 >50ms还有，用 hook要dll ！ timer是最简单的了、、、如果你真的要hook，我可以做个dll给你咯