unit1.~pas

来自「本软件是我用WindowsMediaPlayer,以及Access数据库 并使」· ~PAS 代码 · 共 66 行

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);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses
unit2;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
form2.Show;
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;

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

end.