http://zalil.ru/30531087

Unit MP;

Interface

Uses Windows, WinSock, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons,
ExtCtrls, MPlayer, ComCtrls,MMSYSTEM, FileCtrl;

Type TForm1 = Class(TFORM); //Кнопки
SpeedButton1 = TSpeedButton; //Предыдущий трек
SpeedButton2 = TSpeedButton; //Играть/Пауза
SpeedButton3 = TSpeedButton; //Следующий трек
SpeedButton4 = TSpeedButton; //Выбор песни
ListBox1 = TListBox; //Список
MediaPlayer1 = TMediaPlayer; //Проигрыватель
TrackBar1 = TTrackBar; //ТрэкБар
Timer1 = TTimer;
Label1 = TLabel;
Label2 = TLabel;
Shape1 = TShape;

Procedure FormCreate(Sender : TObject);
Procedure ListBox1Click(Sender : TObject);
Procedure SpeedButton2Click(Sender : TObject);
Procedure SpeedButton1Click(Sender : TObject);
Procedure SpeedButton3Click(Sender : TObject);
Procedure TrackBar1Change(Sender : TObject);
Procedure SpeedButton4Click(Sender : TObject);
Procedure Timer1Timer(Sender : TObject);
Procedure Play;
Procedure PlayList(Path : String);

Var Form : TForm1;

Implementation {$R *.dfm}

Var SoundPath : String[255];
min, sec : integer;
volume : LongWord;

Procedure TForm1.PlayList(Path : String);
Var IpBuf : PChar;
SWinDir : String[128];
SearchRec : TSearchRec;
Begin
ListBox1.Clear;
if FindFirst(Path +*.mp3, fAnyFile, SearchRec) = 0
then
begin
ListBox1.Items.Add(SearchRec.Name);
While(FindNext(SearchRec) = 0) do
ListBox1.Items.Add(SearchRec.Name);
end;
ListBox1.ItemIndex := 0;
End;

Procedure TForm1.FormCreate(Sender : TObject);
Begin
SpeedButton2.AllowAllUp := True;
SpeedButton2.GroupIndex := 1;
PlayList(' ');
ListBox1.ItemIndex := 0;
Label1.Caption := ListBox1.Item[ListBox1.ItemIndex];
TrackBar1.Position := 15;
volume := (TrackBar1.Position - TrackBar1.Max + 1) * 6500;
volume := volume + (volume shl 16);
Wave OutSetVolume(Wave_Mapper, volume);
End;

Procedure TForm1.ListBox1Click(Sender : TObject);
Begin
if not SpeedButton2.Down
then SpeedButton2.Down := True;
Label1.Caption := ListBox1.Items[ListBox1.itemIndex];
Play;
End;

Procedure TForm1.SpeedButton2Click(Sender : TObject);
Begin
if SpeedButton2.Down
then Play
else
begin
MediaPlayer1.Stop;
Timer1.Enabled := False;
SpeedButton2.Down := False;
SpeedButton2.Hint := 'Пуск';
end;
End;

Procedure TForm1.SpeedButton1Click(Sender : TObject);
Begin
if ListBox1.ItemIndex>0 then
ListBox1.ItemIndex := ListBox1.ItemIndex - 1;
Play;
End;

Procedure TForm1.SpeedButton3Click(Sender : TObject);
Begin
if ListBox1.ItemIndex<ListBox1.Count then
ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
Play;
End;

Procedure TForm1.TrackBar1Change(Sender : TObject);
Begin
volume := 6500*(TrackBar1.Max - TrackBar1.Position);
volume := volume+(volume shl 16);
Wave OutSetVolume(Wave_Mapper, volume);
End;

Procedure TForm1.Play;
Begin
Timer1.Enabled := False;
Label1.Caption := ListBox1.Items[ListBox1.itemIndex];
MediaPlayer1.FileName := SoundPath+ListBox1.Items[ListBox1.itemIndex];
try
MediaPlayer1.Open;
except
on EMCIDeviceError do
begin
ShowMessage ('Ошибка ' + ListBox1.items[ListBox1.itemIndex]);
SpeedButton2.Down := False;
exit;
end;
End;
MediaPlayer1.Play;
min := 0;
sec := 0;
Timer1.Enabled := True;
SpeedButton2.Hint := 'Стоп';
End;

Procedure TForm1.Timer1Timer(Sender : TObject);
Begin
if sec<59
then inc(sec)
else
begin
sec := 0;
inc(min);
end;
Label2.Caption := IntToStr(min) + ':';
if sec<10
then Label2.Caption := Label2.Caption + IntToStr(sec);
if MediaPlayer1.Position<MediaPlayer1.Length
then Exit;
Timer1.Enabled := False;
MediaPlayer1.Stop;
if ListBox1.ItemIndex<ListBox1.Count
then
begin
ListBox1.ItemIndex := ListBox.ItemIndex + 1;
Play;
end;
End;

Procedure TForm1.SpeedButton4Click(Sender : TObject);
Var Root : String;
PWRoot : PWideChar;
Dir : String;
Begin
Root := ' ';
GetMem(PWRoot, (Lenght(Root)+1)*2);
PWRoot := StringToWideChar(Root, PWRoot, Max_PATH*2);
if not SelectDirectory('Выберите', PWRoot, Dir)
then Dir := ' '
else Dir := Dir+'\';
SoundPath := Dir;
PlayList(SoundPath);
end;
end.

Unit MP;
Interface
Uses Windows, WinSock, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, MPlayer, ComCtrls,MMSYSTEM, FileCtrl;
Type TForm1 = Class(TFORM); //Кнопки
SpeedButton1 = TSpeedButton; //Предыдущий трек
SpeedButton2 = TSpeedButton; //Играть/Пауза
SpeedButton3 = TSpeedButton; //Следующий трек
SpeedButton4 = TSpeedButton; //Выбор песни
ListBox1 = TListBox; //Список
MediaPlayer1 = TMediaPlayer; //Проигрыватель
TrackBar1 = TTrackBar;
Timer1 = TTimer;
Label1 = TLabel;
Label2 = TLabel;
Shape1 = TShape;

Procedure FormCreate(Sender : TObject);
Procedure ListBox1Click(Sender : TObject);
Procedure SpeedButton2Click(Sender : TObject);
Procedure SpeedButton1Click(Sender : TObject);
Procedure SpeedButton3Click(Sender : TObject);
Procedure TrackBar1Change(Sender : TObject);
Procedure SpeedButton4Click(Sender : TObject);
Procedure Timer1Timer(Sender : TObject);
Procedure Play;
Procedure PlayList(Path : String);

Var Form : TForm1;

Implementation {$R *.dfm}

Var SoundPath : String[255];
min, sec : integer;
volume : LongWord;
Procedure TForm1.PlayList(Path : String);
Var IpBuf : PChar;
SWinDir : String[128];
SearchRec : TSearchRec;
Begin
ListBox1.Clear;
if FindFirst(Path +*.mp3, fAnyFile, SearchRec) = 0 then
then
begin
ListBox1.Items.Add(SearchRec.Name);
While(FindNext(SearchRec) = 0) do
ListBox1.Items.Add(SearchRec.Name);
end;
ListBox1.ItemIndex := 0;
End;
Procedure TForm1.FormCreate(Sender : TObject);
Begin
SpeedButton2.AllowAllUp := True;
SpeedButton2.GroupIndex := 1;
PlayList(' ');
ListBox1.ItemIndex := 0;
Label1.Caption := ListBox1.Item[ListBox1.ItemIndex];
TrackBar1.Position := 15;
volume := (TrackBar1.Position - TrackBar1.Max + 1) * 6500;
volume := volume + (volume shl 16);
Wave OutSetVolume(Wave_Mapper, volume);
End;
Procedure TForm1.ListBox1Click(Sender : TObject);
Begin
if not SpeedButton2.Down
then SpeedButton2.Down := True;
Label1.Caption := ListBox1.Items[ListBox1.itemIndex];
Play;
End;
Procedure TForm1.SpeedButton2Click(Sender : TObject);
Begin
if SpeedButton2.Down then Play
else
begin
MediaPlayer1.Stop;
Timer1.Enabled := False;
SpeedButton2.Down := False;
SpeedButton2.Hint := 'Пуск';
end;
End;
Procedure TForm1.SpeedButton1Click(Sender : TObject);
Begin
if ListBox1.ItemIndex>0 then
ListBox1.ItemIndex := ListBox1.ItemIndex - 1;
Play;
End;
Procedure TForm1.SpeedButton3Click(Sender : TObject);
Begin
if ListBox1.ItemIndex<ListBox1.Count then
ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
Play;
End;
Procedure TForm1.TrackBar1Change(Sender : TObject);
Begin
volume := 6500*(TrackBar1.Max - TrackBar1.Position);
volume := volume+(volume shl 16);
Wave OutSetVolume(Wave_Mapper, volume);
End;
Procedure TForm1.Play;
Begin
Timer1.Enabled := False;
Label1.Caption := ListBox1.Items[ListBox1.itemIndex];
MediaPlayer1.FileName := SoundPath+ListBox1.Items[ListBox1.itemIndex];
try
MediaPlayer1.Open;
except
on EMCIDeviceError do
begin
ShowMessage ('Ошибка ' + ListBox1.items[ListBox1.itemIndex]);
SpeedButton2.Down := False;
exit;
end;
End;
MediaPlayer1.Play;
min := 0;
sec := 0;
Timer1.Enabled := True;
SpeedButton2.Hint := 'Стоп';
End;
Procedure TForm1.Timer1Timer(Sender : TObject);
Begin
if sec<59 then
inc(sec)
else
begin
sec := 0;
inc(min);
end;
Label2.Caption := IntToStr(min) + ':';
if sec<10 then
Label2.Caption := Label2.Caption + IntToStr(sec);
if MediaPlayer1.Position<MediaPlayer1.Length
then Exit;
Timer1.Enabled := False;
MediaPlayer1.Stop;
if ListBox1.ItemIndex<ListBox1.Count
then
begin
ListBox1.ItemIndex := ListBox.ItemIndex + 1;
Play;
end;
End;
Procedure TForm1.SpeedButton4Click(Sender : TObject);
Var Root : String;
PWRoot : PWideChar;
Dir : String;
Begin
Root := ' ';
GetMem(PWRoot, (Lenght(Root)+1)*2);
PWRoot := StringToWideChar(Root, PWRoot, Max_PATH*2);
if not SelectDirectory('Выберите', PWRoot, Dir)
then Dir := ' '
else Dir := Dir+'\';
SoundPath := Dir;
PlayList(SoundPath);
end;
end.

Ошибки: [Warning] MP.pas(3): Unit 'FileCtrl' is specific to a platform
[Error] MP.pas(35): Undeclared identifier: 'PlayList'
[Error] MP.pas(40): This form of method call only allowed for class methods
[Error] MP.pas(41): Undeclared identifier: 'Path'
[Error] MP.pas(41): Incompatible types: 'String' and 'Integer'
[Error] MP.pas(42): Statement expected but 'THEN' found
[Error] MP.pas(44): Method identifier expected
[Error] MP.pas(46): Method identifier expected
[Error] MP.pas(48): Method identifier expected
[Error] MP.pas(50): Undeclared identifier: 'FormCreate'
[Error] MP.pas(52): Method identifier expected
[Error] MP.pas(56): Undeclared identifier: 'Item'
[Error] MP.pas(60): Undeclared identifier: 'Wave'
[Error] MP.pas(62): Undeclared identifier: 'ListBox1Click'
[Error] MP.pas(62): ';' expected but '(' found
[Error] MP.pas(69): Undeclared identifier: 'SpeedButton2Click'
[Error] MP.pas(74): This form of method call only allowed for class methods
[Error] MP.pas(92): Undeclared identifier: 'TrackBar1Change'
И это далеко не все. Основные.