Topic: Windows Media Player

for version 5.3 and above

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=5126&download=0


Script

procedure Form1_OnClose (Sender: TObject; Action: string);
begin
    WMP.Stop;
    WMP.Free;
end;

begin
    WMP:= TWindowsMediaPlayer.Create(Form1);
    With WMP do
    begin
        TabOrder:= 1;
        Align:= alclient;
        Parent:= Form1.Panel1;
        Visible:= true;
     end;

    // File, IP, URL, DDNS
    //WMP.URL:= 'd:\Films\film.mkv';


    WMP.set_volume(100);
    WMP.stretchToFit:= 1; // stretch video
    WMP.enableContextMenu:= 1;


    // none - Windows Media Player is embedded without controls, and with only the video or visualization window displayed.
    // mini - Windows Media Player is embedded with the status window, play/pause, stop, mute, and volume controls shown in addition to the video or visualization window.
    // full - Windows Media Player is embedded with the status window, seek bar, play/pause, stop, mute, next, previous, fast forward, fast reverse, and volume controls in addition to the video or visualization window.
    // invisible - Windows Media Player is embedded without any visible user interface (controls, video or visualization window).
    WMP.uiMode:= 'full';
end.


Project:
http://myvisualdatabase.com/forum/misc. … download=1

Dmitry.