Listbox med mp3 filer..........

Jeg kom lige i tanke om at det ville være bedre hvis at man kune markere en sang i listboxen og derefter trykke play på en mediaplayer der også er i formen.

Nu har jeg fået listboxen til at vise mp3´filerne i mappen. Nu skal jeg bare have mediaplayeren til at spille dem.

ShellExecute(Handle, 'open', ListBox1.Items.Strings[ListBox1.ItemIndex], nil, nil, SW_SHOWNORMAL    );

//hermandsen

[Error] Unit1.pas(51): Undeclared identifier: 'ShellExecute'

Hvad betyder det

Nøeh jeg skulle bare tilføje shellapi under uses, men derefter får jeg denne error [Error] Unit1.pas(51): Incompatible types: 'String' and 'PChar' og den ved jeg ikke hvad jeg skal gøre ved

PChar() omkring ListBox1.Items.Strings[.........

Nu kan den godt køre programmet men der sker ikke noget når man dobbeltklikker på en sang. Her er koden til hele programmet:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer, Shellapi;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    MediaPlayer1: TMediaPlayer;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1; sr: TSearchRec;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  if FindFirst('musik\*.*', 0, sr) = 0 then
  begin
    repeat
      ListBox1.Items.Add('Navn: ' + sr.Name + ' - '
      + ' ' );
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;



procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
ShellExecute(Handle, 'open', Pchar(ListBox1.Items.Strings[ListBox1.ItemIndex]), nil, nil, SW_SHOWNORMAL);

end;

end.

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
ShellExecute(Handle, 'open', Pchar(ListBox1.Items[ListBox1.ItemIndex]), nil, nil, SW_SHOWNORMAL);

end;

Stoney

Stoney>> Er det ikke det samme som jeg har??
Med den kode jeg har posted kan man godt køre programmet. Det sker bare ikke noget når man dobbeltklikker på en fil.
Er der en der kan svare mig på hvorfor der kommer en error når jjeg køre programmet og mediaplayeren er sat til AutoOpen = True

Nej, du har strings med.

Jeg har godt nok ikke testet, men det burde virke

Stoney

>nåeh ok. Men der sker stadig ikke noget når man dobbletklikker.
Jeg kan stadig ikke figure out hvorfor jeg ikke kan få lov til at sætte Mediaplayerens Autoopen = true uden der kommer en error. Det er jo meningen at det er den mediaplayer på formen der skal afspille mp3´en......

Er der ikke en der kan hjælpe mig med at få det til at funke

>>gamer61
Hvilket OS har du??
Mener kun det er XP der accepterer mp3-filer i TMediaPlayer!!

Jeg har Win 2k. Hvad gør jeg så hvis jjeg skal spille mp3

Det virker heller ikke at dobbeltklikke på en .wav fil. Hvad kan jeg gøre for at afspille de mp3filer

gør du sådan her når du sætter filerne ind i Listbox'en >>

ListBox1.Items.Add('Navn: ' + sr.Name + ' - ' + ' ' ); ??

Så vil den jo forsøge at køre en fil med navnet : "Navn: musik\lyd.mp3", og jeg vil væde med at den ikke finde en fil med det navn :)

erstat din formOncreate med det her:

  if FindFirst('musik\*.*', 0, sr) = 0 then
  begin
    repeat
      ListBox1.Items.Add(sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;

i øvrigt kan win2k fint spille mp3 filer i mediaplayer, det er bare at hente de nyeste codecs

Jeg spurgte engang om det helt samme, kig her:
http://www.eksperten.dk/spm/239332
Jeg spurgte om flere spørgsmål på emnet, så hvis du mangler svar prøv at se de spørgsmål jeg har oprettet :)
/ProDoc