MidiGetTime

Gives in milliseconds the time elapsed since the starting up of MidiShare.

pascal long    MidiGetTime();

none

The result is a 32-bit integer, being the elapsed time in milliseconds since the starting up of MidiShare.

A wait function.

void wait(long delay)
{
    long d;
    
    d = MidiGetTime() + delay;
    while (MidiGetTime() < d);
}