Translate

2010/09/26

[轉貼]Delay的寫法

資料來源
void Delay(int iMilliSeconds)
{
  int iStart;

  iStart = GetTickCount();
  while (GetTickCount() - iStart <= iMilliSeconds)
    Application->ProcessMessages();
}

用後感:
利用了Win32 API來進行讀秒的工作,真是大絕!
在與多執行緒搶行程的時候,可以用這個來避免Hold

沒有留言:

張貼留言

JSON Parse in Delphi XE (03)

前情提要: JSON Parse in Delphi XE (01) JSON Parse in Delphi XE (02) 這篇要說明 JSON 格式在 Delphi 裡是怎麼被理解的。 JSON 名詞解釋: JSON(JavaScript Object N...