在工程文件中选File->New Form新建一个窗口,设计好窗口的外观。
给窗口起名为AboutBox,源文件命名为AboutBox.Cpp
选Project->Options,将新建的窗口从自动建立中去掉。
选View->Project Source,打开工程文件的源文件,加入句子。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
#include "AboutBox.h" WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { DWORD lTime; try { Application->Initialize(); AboutBox=new TAboutBox(AboutBox); AboutBox->Show(); AboutBox->Update(); lTime=GetTickCount(); Application->CreateForm(__classid(TMainForm), &MainForm); while((GetTickCount()-lTime) / 1000 <3); AboutBox->Hide(); AboutBox->Free(); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; } |