Delay 延時函數

procedure Delay(MSecs: Longint); //延時函數,MSecs單位爲毫秒(千分之1秒) 函數 var io FirstTickCount,Now:Longint; 時間 begin FirstTickCount := GetTickCount(); repeat Application.ProcessMessages; Now := GetTickCount(); un
相關文章
相關標籤/搜索