当然,可以,不过可不是像你的题目所说的
参看这个代码:
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;
在工程……options 中移除主窗体即可