Question

delphi怎样在控制台程序中实现毫秒级计时？

delphi7。在一般的窗体程序里我可以用millisecondsbetween和gettickcount。不过在控制台里好像这两个函数都没法用。那怎么计时呢？回答正确加30分

Answer 1

请在控制台的uses里面 加上windows单元,就可以用了.
我就是这样用的.
或者 直接 在最前面 加上 导出引用
function GetTickCount:Integer; external 'kernel32.dll' name 'GetTickCount'; 就ok了
记得加分

Answer 2

procedure TForm1.Timer2Timer(Sender: TObject);
begin
label9.caption:=formatdatetime('hh:mm:ss',now);

{---短信发送流动形式 }

with adoquery6 do
begin
close;
sql.Clear;
sql.Add('select * from dstgpsdb..h_timeling where timeling='''+label9.caption+''' ');
open;
end;
if DBGrid6.DataSource.DataSet.RecordCount >=1 then
begin
SpeedButton8.Click; //报警提示发送信息
MessageBox(0,'到时间发送信息啦!!!!','提示',MB_ICONEXCLAMATION);
SpeedButton11.Click; //刷新发送信息指定时间
end ;

end;

这样行不？