GetTickCount的问题?
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%,怎么办?
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%,怎么办?
...全文
相关推荐
C语言计时和随机数的获取
C语言计时和随机数的获取,还有斐波那契数列哦
解决GetTickCount长期不关机时间溢出问题
有些监控等系统需要长期不关机运行,用GetTickCount获取时间片会出现溢出问题,即连续运行49.71天后这个函数获取出来的值就从0开始,导致系统出现故障。此代码解决了这个问题,实际运用正常!
VB中基于GetTickCount API函数的闹钟定时器
非常简单的闹钟定时器程序,主要是应用到VB中的GetTickCount API函数,运行截图如上图所示。
vb6.0 GetTickCount反调试.rar
VB-GetTickCount 反调试 爱琴海。实际软件中,应该彻底隐蔽调试器提示消息,直接引入错误的分支去执行乱七八糟的代码。
GetTickCount.zip
bat脚本不支持获取TickCount用来统计执行时长,这里用C++写一个控制台程序,供bat脚本调用。方便统计脚本执行耗时。


语言基础/算法/系统设计
