ä¸ãå¨è¿è¡ç¼ç¨ä¹åï¼éè¦äºè§£çé¢å¤ç¥è¯ï¼
Windows API åºæä¾äºè·åå½åæ¶é´çåè½å½æ°ï¼å ¶æè¿°å¦ä¸ï¼
å¨ delphi è¯è¨éï¼å¯¹æ¤å½æ°è¿è¡äºå°è£ ï¼
å ¶ä¸çåæ° TSystemTime ç»æå®ä¹å¦ä¸ï¼
record ä½æåä¸ç wMilliseconds æ°å¼å°±æ¯å½åæ¶é´ç毫ç§æ°ã
äºãå®é ç¼å代ç ï¼
procedure TForm1.Button1Click(Sender: TObject);è¿è¡æªå¾ï¼