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;