koding pemutar musik delphi7 Lengkap Dengan Vdieo

KODING APLIKASI PEMUTAR MUSIK DELPHI7

LEBIH LENGKAPNYA ANDA NONTON VIDIO NYA

 SARJANA STIMIK

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, acPNG, ExtCtrls, StdCtrls, Buttons, MPlayer, sSkinManager;

type
  TPemutar_Musik = class(TForm)
    sSkinManager1: TsSkinManager;
    MediaPlayer1: TMediaPlayer;
    BitBtn1: TBitBtn;
    Image1: TImage;
    OpenDialog1: TOpenDialog;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Pemutar_Musik: TPemutar_Musik;

implementation

uses Math;

{$R *.dfm}

procedure TPemutar_Musik.BitBtn1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Display:= BitBtn1;
with BitBtn1 do
end;
end;

procedure TPemutar_Musik.FormCreate(Sender: TObject);
begin
BitBtn1.Caption:='Buka Musik';
end;

procedure TPemutar_Musik.BitBtn2Click(Sender: TObject);
begin
Close;
end;

end.