Witam,
usiłuję zrobić "program" odtwarzający pliki MP3.
Póki co kod wygląda tak:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer, Menus, MMSystem;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
OpenDialog1: TOpenDialog;
Button1: TButton;
MainMenu1: TMainMenu;
Plik1: TMenuItem;
Zakocz1: TMenuItem;
Info1: TMenuItem;
OAutorze1: TMenuItem;
ScrollBar1: TScrollBar;
procedure Button1Click(Sender: TObject);
procedure Zakocz1Click(Sender: TObject);
procedure OAutorze1Click(Sender: TObject);
procedure ScrollBar1Change(Sender: TObject);
private
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure SetWavVolume(Lewy,Prawy:Byte);
begin
waveOutSetVolume(WAVE_MAPPER, Integer((Lewy shl 24) or (Prawy shl 8 )));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Opendialog1.Execute) then
begin
MediaPlayer1.FileName :=OpenDialog1.FileName;
MediaPlayer1.Open;
end;
end;
procedure TForm1.Zakocz1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.OAutorze1Click(Sender: TObject);
begin
Application.MessageBox ('xxx', 'O Autorze', MB_OK + MB_ICONinformation)
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
SetWavVolume(ScrollBar1.Position,ScrollBar1.Position);
end;
end.
chciałbym dołożyć tam playlistę, jednak nie potrafię tego zrobić. Ktoś pomoże?