unit1.pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, WMPLib_TLB, WinSkinData;

type
  TForm1 = class(TForm)
    WMP: TWindowsMediaPlayer;
    SkinData1: TSkinData;
    procedure FormShow(Sender: TObject);
    procedure WMPStatusChange(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses
unit2;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var
s:string;
begin
form2.Show;
s:=form2.Edit1.Text;
wmp.URL:=s;
if pos('.',s)>0 then
wmp.controls.play;
end;

procedure TForm1.WMPStatusChange(Sender: TObject);
begin
if wmp.playState=1 then
{playState:integer
3：正在播放
2：暂停
1：已停止}
form2.Caption:='操作区域'+'   当前已停止播放'
else if wmp.playState=2 then
form2.Caption:='操作区域'+'   当前播放已暂停'
else if wmp.playState=3 then
form2.Caption:='操作区域'+'   正在播放'
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
form1.WMp.close;
end;

end.