{"id":772,"date":"2012-10-01T10:38:26","date_gmt":"2012-10-01T02:38:26","guid":{"rendered":"http:\/\/www.tansoo.cn\/?p=772"},"modified":"2014-09-11T10:39:40","modified_gmt":"2014-09-11T02:39:40","slug":"%e5%b7%a5%e6%8e%a7%e4%b8%ad%e4%bd%bf%e7%94%a8%e7%9a%84%e7%b2%be%e7%a1%ae%e5%bb%b6%e6%97%b6%e5%87%bd%e6%95%b0","status":"publish","type":"post","link":"http:\/\/www.tansoo.cn\/?p=772","title":{"rendered":"\u5de5\u63a7\u4e2d\u4f7f\u7528\u7684\u7cbe\u786e\u5ef6\u65f6\u51fd\u6570"},"content":{"rendered":"<p>\u5728\u5de5\u63a7\u9886\u57df\uff0c\u5bf9\u65f6\u95f4\u7684\u8981\u6c42\u90fd\u5f88\u9ad8\uff0cDelphi\u4e2d\u81ea\u5e26\u7684\u51e0\u4e2a\u5ef6\u65f6\u3001\u5b9a\u65f6\u5668\u90fd\u662f\u57fa\u4e8eWindows\u6d88\u606f\u673a\u5236\uff0c\u4e0d\u662f\u5f88\u51c6\uff0c\u53ea\u80fd\u7528\u5728\u5bf9\u65f6\u95f4\u8981\u6c42\u4e0d\u9ad8\u7684\u5730\u65b9\u3002<br \/>\n\u4e0b\u9762\u7684\u51fd\u6570\u53ef\u4ee5\u5b9e\u73b0\u5feb\u901f\u51c6\u786e\u5ef6\u65f6\uff1a <\/p>\n<pre class=\"lang:delphi decode:true \" >\/\/ \u5ef6\u65f6\u51fd\u6570\uff0cMSecs\u5355\u4f4d\u4e3a\u6beb\u79d2(\u5343\u5206\u4e4b1\u79d2)\r\nprocedure Delay(MSecs: Longint);\r\nvar\r\n  FirstTickCount, Now: Longint;\r\nbegin\r\n  FirstTickCount := GetTickCount();\r\n  repeat\r\n    Application.ProcessMessages;\r\n    Now := GetTickCount();\r\n  until (Now - FirstTickCount &gt;= MSecs) or (Now &lt; FirstTickCount);\r\nend;<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u5728\u5de5\u63a7\u9886\u57df\uff0c\u5bf9\u65f6\u95f4\u7684\u8981\u6c42\u90fd\u5f88\u9ad8\uff0cDelphi\u4e2d\u81ea\u5e26\u7684\u51e0\u4e2a\u5ef6\u65f6\u3001\u5b9a\u65f6\u5668\u90fd\u662f\u57fa\u4e8eWindows\u6d88\u606f\u673a\u5236\uff0c\u4e0d\u662f\u5f88\u51c6\uff0c [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[31],"class_list":["post-772","post","type-post","status-publish","format-standard","hentry","category-program","tag-delay"],"_links":{"self":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts\/772","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=772"}],"version-history":[{"count":0,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts\/772\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=772"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=772"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=772"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}