软件封面的实现的小经验

1、自定义一窗体类TSplashForm，将其设置成"透明窗口"，即BorderIcons下的所有选项均置成false，BorderStyle=bsNone，FormStyle=fsStayOnTop，

2、Position=poScreenCenter；在TSplashForm窗体上放置一TPanel（相当于图形的镜框）；

3、在TPanel上放置一TImage控件，调入所需要的图形;

4、Application->MessageBox

("程序已经运行!","警告",MB_ICONSTOP);

return0;

}

TSplashForm*splash=newTSplashForm(Application);

splash->Show();

splash->Update();

Application->Initialize();

Application->CreateForm(__classid(TForm1),&Form1);

splash->Close();

deletesplash;

对WinMain函数稍加修改，加入如下所示代码即可。需要指出的是，这段代码通过函数FindWindow，搜索内存中是否有窗口标题为"Demo"应用程序存在，若存在，则退出程序的运行。该功能可防止程序的再次运行。在某些场合这样设计是必须的。

WINAPIWinMain(HINSTANCE,HINSTANCE,LPSTR,int)

{

try

{

if(FindWindow(NULL,"Demo")!=0)

{

Application->Run();

}

catch(Exception&exception)

{

Application->ShowException(&exception);

}

return0;

}