Delphi程序窗口如何激活自己和只运行一个实例

1. hAppMutex := CreateMutex(nil, false, '')//最好用GUID ,因为Mutex为跨进程的，万一在同一服务器上运行另一个程序，是用Mutex来实现多线程互斥的，你的程序就运行不了了！ 2. 激活某窗体参见F1

好像没有直接的

API函数

。

GetNextWindow(Handle,

GW_HWNDPREV)可以取得前一个Window，不过这个窗口一般是

输入法

的窗口(Default

IME），因此你可能要继续调用向前找到你要的。

还有一个最笨的办法，就是HOOK一个WM_ACTIVATE消息，做一个简单的记录。

---