.:: ترفنــــــدهای خفن،آموزش و غیره ::.

MainMenu , TMediaPlayer و OpenDialog بر روی فرم قرار بدهید

سپس منوهای ( File -->New-Open-Sepratotr-Exit) را در MainMenu اضافه کنید و بعد هم کد زیر را قرار دهید :

unit av;

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, Menus, MPlayer;

TForm1 = class(TForm)

MainMenu1: TMainMenu;

File1: TMenuItem;

Exit1: TMenuItem;

N2: TMenuItem;

New1: TMenuItem;

Open1: TMenuItem;

Help1: TMenuItem;

About1: TMenuItem;

OpenDialog1: TOpenDialog;

MediaPlayer1: TMediaPlayer;

procedure New1Click(Sender: TObject);

procedure Open1Click(Sender: TObject);

procedure File1Click(Sender: TObject);

procedure Exit1Click(Sender: TObject);

procedure About1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

filename: string;

modified: bool;

public

{ Public declarations }

end;

Form1: TForm1;

{$R *.DFM}

procedure TForm1.New1Click(Sender: TObject);

Volume: LongInt;

MediaPlayer1.Filename := OpenDialog1.Filename;

MediaPlayer1.Open;

MediaPlayer1.Notify := True;

end;

end;

procedure TForm1.Open1Click(Sender: TObject);

Volume: LongInt;

MediaPlayer1.Filename := OpenDialog1.Filename;

MediaPlayer1.Open;

MediaPlayer1.Notify := True;

end;

end;

procedure TForm1.File1Click(Sender: TObject);

New1.Enabled := False;

New1.Enabled := True;

end;

end;

procedure TForm1.Exit1Click(Sender: TObject);

Close;

end;

procedure TForm1.About1Click(Sender: TObject);

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

MediaPlayer1.Filename := '';

end;

end.

اولین سورس برنامه نویسی رو در این پست می خوام در اختیارتون بذارم

کار این سورس اینه که فایلهای تصویری رو با هر پسوندی اجرا می کنه.

توصیه می کنم که این سورس رو حتما دانلود کنین.

برای دانلود اینجا را کلیک کنید