goleklayangan

Unit Unit1;

interface

uses

winProcs, wintypes, StdCtrls, ExtCtrls, FileCtrl, Controls,

classes, MPlayer, Messages, SysUtils, Graphics, Forms,

Dialogs, jpeg, Buttons, XPMan;

type

TForm1 = class(TForm)

MediaPlayer1: TMediaPlayer;

FileListBox1: TFileListBox;

DirectoryListBox1: TDirectoryListBox;

DriveComboBox1: TDriveComboBox;

Panel1: TPanel;

Image1: TImage;

Image2: TImage;

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

procedure FileListBox1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure WMNCHitTest(var msg : TWMNCHitTest);message

WM_NCHitTest;

// procedure FileListBox1Change(Sender: TObject);

// procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

fitra : boolean;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FileListBox1Click(Sender: TObject);

begin

IF ( filelistbox1.FileName <> ”)then

with Mediaplayer1 do

begin fileName := FileListBox1.FileName;

Open;

if fitra then

displayrect:= rect (0,0, panel1.Width, panel1.height )

else

displayrect:=rect (0,0,0,0);

end;

end;

procedure TForm1.WMNCHitTest(var msg : TWMNCHitTest);

begin

inherited;

if (msg.Result = htClient) then

if Msg.YPos < Top + 650 then

msg.Result := htCaption;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

fitra:=true;

mediaplayer1.Display := panel1;

mediaplayer1.VisibleButtons :=

[btplay, btpause, btstop, btnext, btprev, btstep, btback];

filelistbox1.Mask:= ‘*.mpg’;

directorylistbox1.FileList:= filelistbox1;

drivecombobox1.DirList:= directorylistbox1;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if messagedlg(‘Are you sure to exit program?’,mtconfirmation,[mbYes,mbNo],0)=mrYes then

Application.Terminate;

end;

end.