主程序之前的版权窗口

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

DWORD lTime;

try

{

Application->Initialize();

AboutBox=new TAboutBox(AboutBox);

AboutBox->BorderStyle=bsNone;

AboutBox->OKButton->Visible=false;

AboutBox->Height=185;

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;

}