Можно ли задать воспроизведение случайной композиции из папки с программой (Delphi7)

[munthrekosh]

На кнопке висит следующее:

procedure TForm2.Button1Click(Sender: TObject);
begin
  If Button1.Caption='Play'
    then
      begin
        Button1.Caption:='Stop';
        PlaySound('1.wav', 0, SND_ASYNC or SND_LOOP);
      end
    else
      begin
        Button1.Caption:='Play';
        PlaySound('1.wav', 0, SND_PURGE);
        label6.Caption:=svtxt;
      end;
  label6.Visible:= not label6.Visible;
end;

Так вот... Можно ли используя это сделать то о чём говорится в заголовке? Если да, то как?

[Кольша]

procedure TForm2.Button1Click(Sender: TObject);
var
s:string;
begin
  If Button1.Caption='Play'
    then
      begin
        Button1.Caption:='Stop';
s:=inttostr(random(N));N-кол-во файлов
Button1.hint:=s;
        PlaySound(s+'.wav', 0, SND_ASYNC or SND_LOOP);
      end
    else
      begin
        Button1.Caption:='Play';


        PlaySound(Button1.hint+'.wav', 0, SND_PURGE);
        label6.Caption:=svtxt;
      end;
  label6.Visible:= not label6.Visible;
end;

[munthrekosh]

Не подёть. Я так сам сразу же попробовал, не выходит...

[Serge_Bliznykov]

можно.
получайте список подходящих файлов + Random

[munthrekosh]

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

можно.
получайте список подходящих файлов + Random

Я вас не понял... Можно код или как то понятнее для меня объяснить?

[Rin]

У Вас там ошибки несоответствия типов. Напишите PChar(s+'.wav').

На счёт списка файлов + рандом. Обычный поиск в папке. При поиске все названия методом add запихиваешь в переменную типа TStringList, например, music.add(s) , потом i:=random(music.count-1) , и наконец, PlaySound(PChar(music[i]+'.wav'), 0, SND_ASYNC or SND_LOOP);