给你代码：
begin
Application.Initialize;
Application.Title := '你的程序名称';
hMutex:=CreateMutex(nil,False,'你的程序名称');
Ret:=GetLastError;
//判断程序是否已经运行
if Ret<>ERROR_ALREADY_EXISTS then
begin
Application.CreateForm(Tdata, data);
forlogin:=Tforlogin.create(application); //创建登录窗口
try
forlogin.Showmodal;
if forlogin.ModalResult=mrok then
begin
Flashform:=Tflashform.create(application); //创建启动画面
try
Flashform.show;
Flashform.Refresh;
application.CreateForm(Tformain,formain);
finally
Flashform.Hide;
Flashform.free; //释放启动画面窗口
end;
end;
finally
forlogin.free; //释放登录窗口
end;
Application.Run;
end
else
Application.MessageBox('你的程序名称'正在运行！','提示',MB_OK+MB_ICONWARNING);
ReleaseMutex(hMutex);
end.
