GetTickCount的问题?

sz100wwb sz100wwb 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
procedure Delay(dwMilliseconds: DWORD); // Longint
var
iStart, iStop:DWORD;
begin
iStart := GetTickCount;
repeat
iStop := GetTickCount;
Application.ProcessMessages;
until (iStop - iStart) >= dwMilliseconds;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Delay(60000);
end;

问题:有Application.ProcessMessages; 在等待的过程中,怎么还是关闭不了程序?
CPU占用很高,大概在40-50%,怎么办?
...全文

相关推荐

评论 8
收藏 已收藏
分享
返回顶部