delphi 中的delay函数
来源:互联网 发布:有源码怎么做软件 编辑:程序博客网 时间:2024/04/29 14:36
procedure Delay(msecs:integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
Tick := GetTickCount + DWord(msecs);
while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do
begin
Application.ProcessMessages;
msecs := Tick - GetTickcount;
end;
finally
CloseHandle(Event);
end;
end;
- delphi 中的delay函数
- DELPHI 中的Delay函数,利用GetTickCount和Application.ProcessMessages构建
- delphi中的split函数
- delphi中的split函数
- Delphi中的SendKeys函数
- Delphi中的SendKeys函数
- DELPHI 中的 Format 函数
- Delphi中的SendKeys函数
- delphi中的split函数
- delphi 中的 split 函数
- delphi中的split函数
- Delphi中的四舍五入函数
- Delphi中的构造函数
- Delphi中的构造函数
- Delphi 中的函数指针
- Delphi中的构造函数
- Delphi中的Rtti函数
- Delphi 中的 IfThen 函数
- 影响GPS手机定位精度的五大因素【转】
- visual studio2008中:未能加载文件或者是程序集”Microsoft.SqlServer.Manage,ent.SdkSfc…”
- 再记个事
- 李开复:Windows Vista研发失败故事 读后总结
- 治疗便秘的30种秘方
- delphi 中的delay函数
- Eclipse快捷键
- 如何人体穴位自我按摩
- Linux 下安装jdk, MyEclipse和WebLogic笔记
- 用正则表达式看.NET编程
- 科学小常识
- 蜂蜜的功效
- 数组指针VS指针数组
- ASP.NET 配置文件纵横谈