Coding Aplikasih Vidio Menggunakan Delphi7 Lengkap Dengan Vidio

unit Unit1;

interface

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

type
  TVidio = class(TForm)
    WindowsMediaPlayer1: TWindowsMediaPlayer;
    BitBtn1: TBitBtn;
    OpenDialog1: TOpenDialog;
    procedure BitBtn1Click(Sender: TObject);
    procedure Fromclose(Sender: TObject; var action : TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Vidio: TVidio;

implementation

uses StrUtils;

{$R *.dfm}

procedure TVidio.BitBtn1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin                                                 
WindowsMediaPlayer1.URL:=OpenDialog1.FileName;
Vidio.Caption:=LeftStr(ExtractFileName(OpenDialog1.FileName),
length(ExtractFileName(OpenDialog1.FileName))-length(ExtractFileName(OpenDialog1.FileName)))+'media pelayer';
end;
OpenDialog1.FileName:='';
end;

procedure TVidio.Fromclose(Sender: TObject; var action : TCloseAction);
begin
WindowsMediaPlayer1.close;
end;

end.


lebih lengkap nya nonton dengan vidio