Delphi遍历进程，并把需要的进程激活，显示该程序窗体

Question

我编写了一个小程序，打开程序登录后，可以把该程序最小化到系统托盘。
然后我又去运行这个程序，这个时候因为我已经有一个在托盘内了，我希望是直接把已经登录的显示出来，而不是开两个这样的程序。这个功能需要怎么去实现呢？   是否可以通过遍历进程，找到程序后能显示该程序吗？但是不知道应该如何实现，  有其他方式也行，希望各位能给出实际代码，万分感谢！！！delphi进程互斥窗体

Answer 1

今天正好看到一个Demo：
http://www.codefans.net/soft/8946.shtml

Answer 2

总结来说，就是 先用api函数 findwindow查找程序是否存在，可以用自定义的类名或者窗口标题来标识；如果找到就恢复，否则继续。

Answer 3

单实例的问题，参考以下网址内容，方法一可激活已存在窗口，在托盘是否可行未知。
http://zyhh.me/delphi/delphi-single-instance.html

Answer 4

测试了一下，使用cooltrayicon，最小化到托盘后，也可以激活窗口。