BCB5里如何让程序暂停几秒

最新推荐文章于 2022-06-12 00:17:00 发布

sailorcgh

最新推荐文章于 2022-06-12 00:17:00 发布

阅读量368

点赞数

本文链接：https://blog.csdn.net/sailorcgh/article/details/7494221

版权

【程序设计】【C++Builder】专栏收录该内容

24 篇文章 0 订阅

订阅专栏

BCB5里如何让程序暂停几秒
1.
void   __fastcall   TForm1::Button1Click(TObject   *Sender)
  {
      ::Sleep(5000);
      ShowMessage("lvjack   wake   up");
  }
2.可以这样
  WINAPI   WinMain(HINSTANCE,   HINSTANCE,   LPSTR,   int)
  {
          try
          {
                  DWORD   lTime;
                  Application->Initialize();

                  lTime=GetTickCount();         //读取流逝时间
                  Application->CreateForm(__classid(TMainForm),   &MainForm);
                  while((GetTickCount()-lTime)   /   1000   Hide();
                  AboutBox->Free();
                  Application->Run();
          }
          catch   (Exception   &exception)
          {
                  Application->ShowException(&exception);
          }
          catch   (...)
          {
                  try
                  {
                          throw   Exception("");
                  }
                  catch   (Exception   &exception)
                  {
                          Application->ShowException(&exception);
                  }
          }
          return   0;
  }
3.
DWORD   lTime;
  lTime=GetTickCount();         //读取流逝时间
  Application->CreateForm(__classid(TMainForm),   &MainForm);
  while((GetTickCount()-lTime)   /   1000   <3);
  //上面那个3是延迟秒数

  这些是有用的