GetTickCount的问题？

[sz100wwb]

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%，怎么办？

[duoduo168]

procedure Delay(dwMilliseconds: DWORD);  //  Longint 
var 
  iStart, iStop:DWORD; 
begin 
  iStart := GetTickCount; 
  repeat
    SleepEx(5, false); 
    iStop := GetTickCount; 
    Application.ProcessMessages; 
  until (iStop - iStart) >= dwMilliseconds; 
end;

GetTickCount精度在15ms左右，SleepEx(5, false);完全满足。降低CPU占用率。

[sz100wwb]

Application.ProcessMessages;还是没能响应程序关闭的消息！为什么？

我用的是Delphi2007

[Seamour]

你的repeat还没结束怎么退出啊

[sz100wwb]

没有强行退出的方法吗？请高手指点下 先谢谢了 分少再加。

[starluck]

Application.processMessage ; 就是讓消息不要進入隊列，直接至窗口，所以才會出現這種情況。

[Seamour]

这个需求很奇怪，感觉你是在多应该是多线程的事
可以增加一个until的退出条件，在OnClose事件中使该条件变为True
此外，也可以在OnClose中通过调用Halt过程直接退出程序，这种方法强烈不推荐使用

[microidc1415]

很简单 循环过程中加这样一句：
if Application.Terminated then Exit;

[starluck]

[Quote=引用 6 楼 Seamour 的回复:]
这个需求很奇怪，感觉你是在多应该是多线程的事
可以增加一个until的退出条件，在OnClose事件中使该条件变为True
此外，也可以在OnClose中通过调用Halt过程直接退出程序，这种方法强烈不推荐使用
[/Quote]


有可能是接受串口的時候，有時會這樣做。