C-Header nach Delphi umfummeln

[toms]

Delphi-Quellcode:

const
    { MCI control message posted to the specified window handle }
    // (because of compatibility to Win95 this value should be greater
    // than WM_USER + 0x100)
    MM_MCI_CONTROL = WM_USER + $300;

  type
    { custom structure for the MCI_CONTROL_DISPLAY command }
    PMCIControlDisplayParms = ^TMCIControlDisplayParms;
    tagMCI_CONTROL_DISPLAY_PARMS = packed record
      dwCallback: DWord;
      dwState: DWord;
    end;
    MCI_CONTROL_DISPLAY_PARMS = tagMCI_CONTROL_DISPLAY_PARMS;
    TMCIControlDisplayParms = tagMCI_CONTROL_DISPLAY_PARMS;

  const
    { dwFlags for the MCI_CONTROL_DISPLAY command }
    MCI_DISPLAY_STATE = $00010000;

    { dwState for the MCI_CONTROL_DISPLAY command }
    MCI_STATE_STOP              = $00000001;
    MCI_STATE_PLAY              = $00000002;
    MCI_STATE_FFWD              = $00000003;
    MCI_STATE_FRWD              = $00000004;
    MCI_STATE_VOR_STOP          = $00000005;
    MCI_STATE_RECORD_INSERT     = $00000006;
    MCI_STATE_RECORD_OVERWRITE  = $00000007;
    MCI_STATE_RECSTBY_INSERT    = $00000008;
    MCI_STATE_RECSTBY_OVERWRITE = $00000009;