//声明 GetDoubleClickTime: UINT; {无参数; 返回鼠标双击间隔时间, 单位是毫秒} SetDoubleClickTime( Interval: UINT {依毫秒为单位的时间数} ): BOOL;
//举例: var c: Cardinal; begin c := GetDoubleClickTime; ShowMessage(IntToStr(c)); {500} SetDoubleClickTime(499); ShowMessage(IntToStr(GetDoubleClickTime)); {499} end;