建立一個獨立表單 AboutBox,設定不自動建立,然後在專案原始碼 WinMain 中手動建立、顯示、延遲幾秒後關閉,再建立主視窗。
AboutBox.cpp,類別 TAboutBoxAboutBox 移至 Available forms (取消自動建立)#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);
// 延遲 3 秒 (同時主視窗在背景初始化)
while ((GetTickCount() - lTime) / 1000 < 3);
AboutBox->Hide();
AboutBox->Free();
Application->Run();
}
catch (Exception &exception) {
Application->ShowException(&exception);
}
return 0;
}
AboutBox->Update() 確保視窗在延遲迴圈前完整繪製。Hide() 並 Free() 釋放資源。