Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi свойства Label http://www.cyberforum.ru/delphi/thread302296.html
Можно ли сделать так чтобы Label состоял не из 1 строки а из нескольких? А то текст не умещется
Delphi вывести график помогите пожалуйста Вывести график функции. Для построения графика используется вся доступная область формы, причем если во время работы программы пользователь изменит размер окна, то график... http://www.cyberforum.ru/delphi/thread302245.html
Свой обработчик сообщений на форме Delphi
Здравствуйте, столкнулся с такой ситуацией... В многооконном приложении построенном по-принципу MVC, где форма - является контроллером, но так же может вызывать суб-контролеры формы созданые из этой...
Delphi Дочерние(child) окна вкладками
Добрый день, возник вопрос такого характера: Требуется на в MDI-приложение организовать работу с дочерними окнами таким образом, что бы при сворачивании дочернего окна оно отображалась на mainе как...
Delphi подсажите. инструкция INSERT http://www.cyberforum.ru/delphi/thread301961.html
необходимо добавит в ADOтаблицу sql-запросом поля номер техники фамилия сотрудника дата1 дата2 и номер кабинета. при добавления надо пропустить поле дата2 но запись дажна добавиться подскажите если...
Delphi Ошибка в цикле while при слиянии списков Народ, помогите пожалуйста с задачей!!! У меня процедуре слияние списков выдает ошибку на while Unit1.pas(139): For loop control variable must be simple local variable как мне ее исправить?...... подробнее
Mawrat
12833 / 5741 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
23.05.2011, 09:40 0

Как поставить в Mp3 плеере на кнопку окрытие не одного mp3 файла ??

23.05.2011, 09:40. Просмотров 1422. Ответов 9
Метки (Все метки)

Ответ

Составить список файлов (список имён файлов) можно так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
uses
  FileCtrl;
 
var
  gsDir : String;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Массив, содержащий перечень интересующих расширений файлов.
  ArrExt : array[1..2] of String = ('.MP3', '.WAV');
var
  Sr : TSearchRec;
  sDir, sExt : String;
  i : Integer;
  F : Boolean;
begin
  sDir := gsDir;
  if sDir = '' then
    sDir := ExtractFilePath(ParamStr(0));
 
  //Диалог открытия папки.
  if not SelectDirectory(sDir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then Exit;
  if not DirectoryExists(sDir) then begin
    ShowMessage('Папка с указанным именем не существует. Действие отменено.');
    Exit;
  end;
  sDir := IncludeTrailingPathDelimiter(sDir);
  gsDir := sDir;
  
  Memo1.Clear;
  Memo1.Lines.Add('Папка: ' + sDir);
  try
    if FindFirst(sDir + '*', faAnyFile, Sr) = 0 then repeat
      //Пропускаем папки.
      if (Sr.Attr and faDirectory) = faDirectory then Continue;
      //Расширение найденного файла.
      sExt := AnsiUpperCase( ExtractFileExt(Sr.Name) );
      //Проверяем, принадлежит ли расширение перечню расширений.
      F := False;
      for i := Low(ArrExt) to High(ArrExt) do begin
        if sExt = ArrExt[i] then begin
          F := True;
          Break;
        end;
      end;
      //Если расширение входит в перечень, то добавляем имя файла в список.
      if F then Memo1.Lines.Add(Sr.Name);
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;
end;


Вернуться к обсуждению:
Как поставить в Mp3 плеере на кнопку окрытие не одного mp3 файла ??
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2011, 09:40

Как определить длительность Mp3 файла. MP3 плеер на библиотеке BASS 2.4
В процессе поиска ответов я наткнулся на эту тему...

Как сделать автостарт в mp3 плеере
Многоуважаемые програмисты, помогите с кодом mp3 плеера Нужно сделать так...

Приветствие в mp3 плеере Samsung U5
Доброго времени суток! Кто знает как изменить приветствие на mp3 плеере Samsung...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru