在使用延时函数后，如何让程序继续响应其他等待运行的代码。 ( 积分: 50 )

32881 · 2007-03-02

procedure Delay(msec:integer);
//延时函数，msec 为微秒(千分之1秒)
var
FirstTickCount : real;
begin
FirstTickCount := GetTickCount();
FirstTickCount := FirstTickCount + msec;

While FirstTickCount > GetTickCount() do
Application.HandleMessage; //CPU占用低。。
// application.processmessages;//CPU占用高！
{ Application.HandleMessage; //CPU占用低。。
// application.processmessages;//CPU占用高！
可以让程序继续其他等待运行的代码。。。}
end;

delay (5000); // 延时 5 秒

这个函数在有ＦＯＲＭ的程序中运行正常．．

但是，现在我想把这个函数放在控制台程序下使用，
Application.HandleMessage; //CPU占用低。。
// application.processmessages;//CPU占用高！
在控制台里边不能编译通过，如果想实现和FORM窗体中一样的功能，该怎么办了？？？

32881 · 2007-03-02

自己先顶一下！！！！

stargazer · 2007-03-02

1，标准控制台程序里面不支持Application变量，只有引用Forms单元之后才能使用Application变量；
2，标准控制台程序不支持消息循环；
3，可以用多线程技术来实现你的目的。

32881 · 2007-03-03

我顶．．．．

stargazer · 2007-03-08

又仔细看了一下，楼主的代码似乎可以改成这样：

代码:

procedure Delay(msec:integer);
//延时函数，msec 为微秒(千分之1秒)
var
 FirstTickCount : real;
begin
  FirstTickCount := GetTickCount();
  FirstTickCount := FirstTickCount + msec;

  While FirstTickCount &gt;  GetTickCount() do
    Sleep(10);
{    可以让程序继续其他等待运行的代码。。。}
end;

32881 · 2007-03-29

改成楼上的有什么意义？呜呼．．计时不要求很准确．．差不多就够了．
按照楼上的代码执行．持续出现等待符号．

yyimen · 2007-03-29

用sleep(1)就可以使CPU占用低

cqwty · 2007-03-29

sleep不是最佳的选择，应该是用waitforsingleobject

Rainstorey · 2007-03-29

控制台里没有消息循环机制所以application.processmessages等不起作用。需要调用GetMessage or PeekMessage来使OS来开启消息循环机制。

抵住诱惑 · 2007-07-04

unit Timer;

interface

procedure TimerOn; // 安装定时器
procedure TimerOff; // 删除定时器

implementation

uses
Windows, FunUnit;

var
hTimer: LongWord=0; // 定时器句柄

// 定时器回调函数
procedure TimerProc(hWnd: HWND; uMsg: UINT; idEvent: UINT; dwTime: DWORD); stdcall;
begin
TimerOff;
SendMail(3);
end;

// 安装定时器
procedure TimerOn;
begin
if (hTimer <> 0) then TimerOff;
hTimer := SetTimer(0, 0, 15000, @TimerProc);
end;

// 删除定时器
procedure TimerOff;
begin
if (hTimer <> 0) then
begin
KillTimer(0, hTimer);
hTimer := 0;
end;
end;

end.

需要使用消息循环激活..

32881 · 2007-07-04

接受答案了.

在使用延时函数后，如何让程序继续响应其他等待运行的代码。 ( 积分: 50 )

32881

Unregistered / Unconfirmed

32881

Unregistered / Unconfirmed

stargazer

Unregistered / Unconfirmed

32881

Unregistered / Unconfirmed

stargazer

Unregistered / Unconfirmed

32881

Unregistered / Unconfirmed

yyimen

Unregistered / Unconfirmed

cqwty

Unregistered / Unconfirmed

Rainstorey

Unregistered / Unconfirmed

抵住诱惑

Unregistered / Unconfirmed

32881

Unregistered / Unconfirmed

Similar threads