unit2.~pas

本软件是我用WindowsMediaPlayer,以及Access数据库 并使用了EhLib 官方 v4.1.4 完整版本带源码,Vclskin控件 希望大家喜欢调试前请确保你的电脑 安装了Wi

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls,shellapi,inifiles;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    ComboBox1: TComboBox;
    TrackBar1: TTrackBar;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button7: TButton;
    OD: TOpenDialog;
    Timer1: TTimer;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label5: TLabel;
    Timer2: TTimer;
    CheckBox1: TCheckBox;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  inipath:string;
  loien:Tinifile;

implementation
uses
unit1,unit3;

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
if od.Execute then
begin
edit1.Text:=od.FileName;
form1.WMP.URL:=edit1.Text;
form1.Caption:='电影播放器'+'      ['+form1.WMP.currentMedia.sourceURL+']';
end else
exit;
end;

procedure TForm2.Button7Click(Sender: TObject);
begin
form1.WMP.enableContextMenu:=not form1.WMP.enableContextMenu; 
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
FlashWindow(application.Handle,true);
Label8.Caption:=form1.WMP.controls.currentPositionString;
if form1.WMP.playState=3 then
Label5.Caption:=form1.WMP.currentMedia.durationString;
if not CheckBox1.Checked then
begin
if form1.WMP.playState=1 then
begin
with form3.DBGridEh1.DataSource.DataSet do
begin
if Eof then
First
else
next;
form1.WMP.url:=FieldByName('路径').AsString;
edit1.Text:=FieldByName('路径').AsString;
end;
end;
end;
end;

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
form1.WMP.uiMode:=ComboBox1.Text;
end;

procedure TForm2.RadioButton1Click(Sender: TObject);
begin
form1.WMP.stretchToFit:=true;
end;

procedure TForm2.RadioButton2Click(Sender: TObject);
begin
form1.WMP.stretchToFit:=false;
end;

procedure TForm2.TrackBar1Change(Sender: TObject);
begin
form1.WMP.settings.volume:=TrackBar1.Position;
end;

procedure TForm2.Timer2Timer(Sender: TObject);
begin
if form1.wmp.playState=1 then
form1.wmp.controls.play;
end;

procedure TForm2.RadioButton3Click(Sender: TObject);
begin
Timer2.Enabled:=true;
end;

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
Timer2.Enabled:=true
else
Timer2.Enabled:=false;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
shellabout(application.Handle,'电影播放器','本软件由马振强(LoIen)制作！QQ:395241021',application.Icon.Handle);
end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
var
s:string;
begin
s:=edit1.Text;
if (pos('.',s)>0) then
begin
form1.WMP.URL:=s;
form1.WMP.controls.play;
end else if pos('Storm',s)>0 then
SpeedButton1.Click;
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
form1.WMP.controls.pause;
end;

procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
form1.WMP.controls.stop;
end;

procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
form1.WMP.controls.fastForward;
end;

procedure TForm2.SpeedButton7Click(Sender: TObject);
begin
form1.WMP.controls.fastReverse;
end;

procedure TForm2.SpeedButton8Click(Sender: TObject);
begin
form1.WMP.fullScreen:=true;
end;

procedure TForm2.SpeedButton9Click(Sender: TObject);
begin
loien.WriteString( 'APPLICATION', 'move',edit1.Text);
form1.WMp.close;
application.Terminate;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
inipath:=extractfilepath(application.ExeName)+'cofig.ini';
loien:=TIniFile.Create(ChangeFileExt(extractfilepath(application.ExeName), 'cofig.ini'));
if fileexists(inipath) then
edit1.Text:=loien.readString('APPLICATION', 'move','')
else
loien.WriteString( 'APPLICATION', 'move','如果想播放其它格式，请安装 Storm Codec');
end;

procedure TForm2.SpeedButton10Click(Sender: TObject);
begin
form3.Show;
end;

procedure TForm2.SpeedButton11Click(Sender: TObject);
begin
form1.WMP.controls.play;
end;

end.