1、安装UniqueInstance组件(可下载包安装,也可以在线安装)2、在窗口中加TUniqueInstance控件。在system的选项卡下,一个红色1的控件3、设置TUniqueInstance的enabled为真4、在UniqueInstance1OtherInstance事件中加处理程序 。如 Application.BringToFront; 使程序显示到最前面