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

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

给你提供两种方法！~

1

你要把主要的 功能界面 做成 主窗体 然后那些登陆的窗口做成 子窗体 在delphi里面设置一下 就好了 然后叫登陆的窗口 showmodle 显示 这样 当关闭登陆窗口的时候就可以自动显示 主窗体了！

2

还有一种方法是 把主窗体 做成登陆窗体 一般就是 第一你创建的窗体了 然后 叫主窗体 form1。hide form2.show然后就可以实现功能了！

建议用第一套！

form2做为登录窗口是不需要设置为主窗体的，如果设置为主窗体，登录完成以后把主窗体form2 释放后进程也就跟着释放了，这样你就实现不了你登录的效果!方法很多，给你举个例子:

打开你的工程文件（*.dpr,或project ->view source),把Application.CreateForm(TForm2,Form2)改为

Form2:= TForm2.Create(Application)并把这一句放到Application.CreateForm(TForm1,Form1)前面,如:

begin

application.initliaze

Form2:= TForm2.Create(Application)

if not (Form2.ShowModal = mrOK) then

begin

Form2.Free

Exit

end

Form2.free

Application.CreateForm(TForm1,Form1)

Application.Run

end

Application.CreateForm（）创建的第一个窗体就是主窗体，你要改的话就把你想要的放在前面就行了

---