Поиск Музыки Mp3 На Компьютере

[Sascha]

Выбираем диск или директорию, можно также вписывать путь где хранится музыка ,прогррама выдаст весь список файлов с раширением mp3, для проигрывания музыкальных файлов просто нажмите на нужную ссылку.
Скачать: Search MP3 music

 

[Lomanu4]

Посмотреть вложение 82
Выбираем диск или директорию, можно также вписывать путь где хранится музыка ,прогррама выдаст весь список файлов с раширением mp3, для проигрывания музыкальных файлов просто нажмите на нужную ссылку.
Скачать: Search MP3 music

Исходника не будет?🙁

 

[Sascha]

Исходника не будет?🙁

Можно и код, только я думал тут программы готовые а не кода для программ это в другом разделе.

procedure FindFiles(FilesList: TStringList; StartDir, FileMask: string);

var

  SR: TSearchRec;

  DirList: TStringList;

  IsFound: Boolean;

  i: integer;

begin

  if StartDir[length(StartDir)] <> '\' then

    StartDir := StartDir + '\';

    IsFound := FindFirst(StartDir + FileMask, faAnyFile - faDirectory, SR) = 0;

  while IsFound do

  begin

    FilesList.Add(StartDir + SR.Name);

    IsFound := FindNext(SR) = 0;

  end;

  FindClose(SR);

    DirList := TStringList.Create;

  IsFound := FindFirst(StartDir + '*.*', faAnyFile, SR) = 0;

  while IsFound do

  begin

    if ((SR.Attr and faDirectory) <> 0) and (SR.Name[1] <> '.') then

      DirList.Add(StartDir + SR.Name);

    IsFound := FindNext(SR) = 0;

  end;

  FindClose(SR);

    for i := 0 to DirList.Count - 1 do

    FindFiles(FilesList, DirList[i], FileMask);

  DirList.Free;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

  FilesList: TStringList;

  i: integer;

begin

  FilesList := TStringList.Create;

  try

    FindFiles(FilesList, EditStartDir.Text, '*.mp3'); <----  здесь можно ставить что ищем.

    ListBox1.Items.Assign(FilesList)

    Label1.Caption := 'Найдено файлов: ' + IntToStr(FilesList.Count);

    Label1.Visible := True;

    if FilesList.Count = 0 then

    ShowMessage('Ничего не найдено');

  finally

    FilesList.Free;

  end;

end;

procedure TForm1.ListBox1DblClick(Sender: TObject);

Var

  s: String;

begin

  s := Form1.ListBox1.Items.Strings[ListBox1.ItemIndex];

  ShellExecute(0, 'open', PChar(s), nil, nil, SW_SHOW);

end;

 

[Lomanu4]

Ну можно и переместить ,я думал что кинешь в приват 😀

 

[Sascha]

Ну можно и переместить ,я думал что кинешь в приват 😀

Я тебе уже в приват накидал разберись с ним 😀