Topic: Windows Media Player
for version 5.3 and above
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.