在工程文件中选File->New Form新建一个窗口,设计好窗口的外观。
给窗口起名为AboutBox,源文件命名为AboutBox.Cpp
选Project->Options,将新建的窗口从自动建立中去掉。
选View->Project Source,打开工程文件的源文件,在下面加入红色的句子。
#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;
}
//------------------------------------------------------------------------------------------
//----以上部分是本人以前在论坛上看到一些大侠们所写,但是经过本人实践之后发现这个方法不可取!!
//----以上方法实际上是通过蛮力来计算,照此设计的程序, 执行初始便是CPU使用达到100%,
//----不知道如果机器差劲,会不会死机!!^_^
//----如有问题于本人交流 :
//----E-mail: lonelyforest@126.com QQ:36274668
//----blog: http://blog.csdn.net/lonelyforest (乱,没水准!多多指教!)
//---可与本人联系交流! 广交各路高手!
//--------------------------------------------------------------------------------------------
//以下是本人觉得比较合适的一种,希望各位高人能够多多指教!
在工程文件中选File->New Form新建一个窗口,设计好窗口的外观。
给窗口起名为AboutBox,假设源文件为 Unit7.cpp
选Project->Options,将新建的窗口从自动建立中去掉。
选Project->ViewSource,打开工程文件的源文件,重新设置如下。
其中不恰当的我已经用注释来注解调了。
#include "Unit7.h" WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { // DWORD lTime; try { Application->Initialize(); AboutBox=new TAboutBox(AboutBox); //AboutBox->Show(); //AboutBox->Update(); AboutBox->Show(); AboutBox->Update(); // lTime=GetTickCount(); Application->CreateForm(__classid(TMainForm), &MainForm); // while((GetTickCount()-lTime) / 1000 <3); //尤其这句!!CPU 100% !! // AboutBox->Hide(); // AboutBox->Free(); Sleep(3000); //原理是使当前程序休息一段时间,当然你也可以自己设置长短,(1000代表1秒) //并且改进比如在此期间进行文件核查,注册校对等等!! AboutBox->Hide(); delete AboutBox; Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; }