Wrong declaration timeSetEvent in module mmsystem.pp

Original Reporter info from Mantis: Alexpsico
  • Reporter name:

Description:

Sorry for my english, I translated via google.

On the Microsoft website, the timeSetEvent function declaration looks like this
https://msdn.microsoft.com/en-us/library/windows/desktop/dd757634(v=vs.85).aspx

in module mmsystem.pp is specified as follows
Function timeSetEvent (x1: UINT; x2: UINT; x3: LPTIMECALLBACK; x4: DWORD; x5: UINT): MMRESULT;

Parameter x4 should be 8 bytes on a 64-bit system, and on 32-bit - 4 bytes.

I can not pass in the parameter x4 a pointer to TObject for the callback proc.

P.S. This is my first experience of sending a report

Mantis conversion info:

  • Mantis ID: 33823
  • OS: Ultimate x64
  • Build: Lazarus 1.8.0 r56594 FPC 3.0.4 x
  • Platform: Windows
  • Version: 3.0.4
  • Fixed in revision: 39164 (#438c4cbe)
Assignee Loading
Time tracking Loading