[franklininiciad]

bacicamente ocupas:

MediaPlayer1.Filename := FileListBox2.FileName;
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.open;
MediaPlayer1.Play;

esto es lo k llebo echo yo en 3 dias pero algien me puede decir como aser k me muestre una lista de espera en similar al reproductor de windows yak si selecciono otro me bota el anterior ???:




unit freeplay;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FileCtrl, StdCtrls, ExtCtrls,jpeg, MPlayer;
type
TForm22 = class(TForm)
FileListBox2: TFileListBox;
Image1: TImage;
MediaPlayer1: TMediaPlayer;
cerrar: TButton;
Label1: TLabel;
Button1: TButton;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
Label2: TLabel;
MediaPlayer2: TMediaPlayer;
Button2: TButton;
procedure FileListBox1DblClick(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure Button1KeyPress(Sender: TObject; var Key: Char);
procedure cerrarClick(Sender: TObject);
procedure FileListBox2KeyPress(Sender: TObject; var Key: Char);

private
{ Private declarations }
public
{ Public declarations }
end;
var
Form22: TForm22; a,N:integer;
implementation
{$R *.dfm}

procedure TForm22.Button1KeyPress(Sender: TObject; var Key: Char);
begin
if N<=0
then N:=N+1;
Label1.Caption := IntToStr(N);
if N>=1 then
N:=N+1;
Label1.Caption := IntToStr(N-1);
end;
procedure TForm22.cerrarClick(Sender: TObject);
begin
Close;
end;
procedure TForm22.DirectoryListBox1Change(Sender: TObject);
begin
FileListBox2.Directory:=DirectoryListBox1.Directory;
FileListBox1.Directory:=DirectoryListBox1.Directory;
end;
procedure TForm22.FileListBox1DblClick(Sender: TObject);
begin
label2.Caption:=FileListbox1.filename;
end;
procedure TForm22.FileListBox2KeyPress(Sender: TObject; var Key: Char);
begin
if N>=1 then
N:= N-1;
MediaPlayer1.Filename := FileListBox2.FileName;
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.open;
MediaPlayer1.Play;
Label1.Caption := IntToStr(N);
if N=1 then
Label1.Caption := IntToStr(N-1);
//
//MediaPlayer2.Filename := FileListBox2.FileName;
//MediaPlayer2.DeviceType := dtAutoSelect;
if N=0 then
MediaPlayer1.pause;
end;
end.