[Gareth]

Сообщение от Alegun

Да что там понимать, похоже ТС просто забыл в uses юнит bass дописать.

Кстати, забыл написать что написал в "uses" bass;
по этому и не понимаю в чем моя ошибка...
Исходник качал, тоже всё запускается, а у меня в самом начале неразбериха...

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,XPMan, ComCtrls, StdCtrls, Buttons, ExtCtrls, bass;

type
  TForm1 = class(TForm)
    pb1: TPaintBox;
    scrlbr1: TScrollBar;
    lbl1: TLabel;
    lbl2: TLabel;
    btn1: TBitBtn;
    btn2: TBitBtn;
    btn3: TBitBtn;
    trckbr1: TTrackBar;
    trckbr2: TTrackBar;
    lbl3: TLabel;
    lbl4: TLabel;
    trckbr3: TTrackBar;
    trckbr4: TTrackBar;
    trckbr5: TTrackBar;
    trckbr6: TTrackBar;
    trckbr7: TTrackBar;
    trckbr8: TTrackBar;
    trckbr9: TTrackBar;
    trckbr10: TTrackBar;
    trckbr11: TTrackBar;
    trckbr12: TTrackBar;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    lbl10: TLabel;
    lbl11: TLabel;
    lbl12: TLabel;
    lbl13: TLabel;
    lbl14: TLabel;
    btn4: TBitBtn;
    btn5: TBitBtn;
    lst1: TListBox;
    o1: TOpenDialog;
    tmr1: TTimer;
    procedure btn4Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:Integer;
  filename:string;
Channel: DWORD;


implementation

{$R *.dfm}

procedure TForm1.btn4Click(Sender: TObject);

var j: integer;
  Channel    : DWORD;//
begin
 o1.Title  := 'Open Files';
 o1.Filter := 'mp3|*.mp3'; 

if lst1.Count<>0 then i:=lst1.ItemIndex else i:=0;
if not o1.Execute then exit;
  begin
  for j:=0 to o1.Files.Count-1 do
    begin
      Lst1.Items.Add(o1.Files.Strings[j]);
    end;
  end;
   Filename:=Lst1.Items.Strings[i];
   Lst1.ItemIndex:=i;
end;

procedure TForm1.btn1Click(Sender: TObject);

begin
if mode=play then 
exit ;
player;

end;

end.

как я понял, mode - это переменная... так как надо еще дописать в глобальных "mode:Tplayermode" - но не получается.