Syntax SendMCICommand

[EWeiss]

destructor Destroy(alias: string); reintroduce;

Delphi-Quellcode:

   if autoplay then
        play;

fehlt noch das alias hinter play

und alias mciplayer bei duration wurde noch nicht ersetzt.

Delphi-Quellcode:

   // Calculate duration
     command := ('set mciplayer time format milliseconds wait');
     mciSendString(command, return, resultSize, 0);
 
   command := ('status mciplayer length wait');
     mciSendString(command, return, resultSize, 0);
     if (StrLen(return) > 0) then
        duration := StrToInt(return)
     else
    duration := 0;

gruss