本文整理自网络,侵删。
function HaveSigned(MaxWaitTime: Cardinal): Boolean;var I:Integer;var WaitedTime:Cardinal;begin WaitedTime:=0; while (WaitedTime<MaxWaitTime) do begin SleepEx(100,False); Inc(WaitedTime,100); Application.ProcessMessages ; endend;
相关阅读 >>
用Delphi通过setupapi.dll列举和停用硬件设备
Delphi tidhttp+tidssliohandlersocket+ssl
Delphi 获取其它软件的tlistbox句柄,怎么取得listbox中的数据
Delphi windows 编程[21] - wm_menuselect 消息与 getmenustring 函数
tsqlconnection连接mysql(utf8)的问题
更多相关阅读请进入《Delphi》频道 >>