没有吗?扩展API呀!
在unit mmsystem/mmsystem.h 中。

解决方案 »

  1.   

    这是它的定义:MMRESULT timeSetEvent(UINT uDelay, UINT uResolution, 
        LPTIMECALLBACK lpTimeProc, DWORD dwUser, UINT fuEvent); 
    而关于timeproc就这样解释的:
    lpTimeProcAddress of a callback function that is called once upon expiration of a single event or periodically upon expiration of periodic events.
    你可以在msdn中找出LPTIMECALLBACK的说明。
      

  2.   

    对呀,我是说它的Pascal声明如何写。
    我写成
    procedure TimeProc(a,b:UINT;dUser,dw1,dw2:DWORD);//具体忘了
    编译报错,我也不知道CALLBACK的PASCAL对应是什么。
      

  3.   

      TFNTimeCallBack = procedure(uTimerID, uMessage: UINT; 
        dwUser, dw1, dw2: DWORD) stdcall;