unit1.pas

Delphi7编程80例(完全版)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, OleCtrls, ShockwaveFlashObjects_TLB,
  MediaPlayer_TLB;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    SpeedButton1: TSpeedButton;
    OpenDialog1: TOpenDialog;
    WMediaPlayer1: TWMediaPlayer;
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  PS_Status: boolean;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if opendialog1.Execute then
    begin

    WMediaPlayer1.FileName := Opendialog1.FileName;
    PS_Status := True;
    end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if PS_Status = True then
    begin
    WMediaPlayer1.Stop;
    speedbutton1.Glyph.LoadFromFile('./VCRPLAY.BMP');
    PS_Status := False;
    end
  else
    begin
    WMediaPlayer1.Play;
    speedbutton1.Glyph.LoadFromFile('./VCRSTOP.BMP');
    PS_Status := True;
    end;
end;

end.