Пятница, 29 Марта 2024, 01:29

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » TORSUMYPlayer mp3 Delphi (с кучей наворотов в минимальном размере)
TORSUMYPlayer mp3 Delphi
TORДата: Понедельник, 11 Октября 2010, 14:47 | Сообщение # 1
частый гость
Сейчас нет на сайте
TORSUMYPlayer mp3 Delphi (с кучей наворотов в минимальном размере менее 1 мб)
Если ещё не видели зацените в 2009 накидал код)
Freeware,доступен исходник Source для всех желающих) компилил на делфи7) юзайте кому интересно)

СКАЧАТЬ
СКАЧАТЬ ИСХОДНИК (Delphi)

с ув.Artem (Ukraine,Sumy)

Сообщение отредактировал TOR - Понедельник, 11 Октября 2010, 14:48
minimogДата: Понедельник, 11 Октября 2010, 15:51 | Сообщение # 2
RPG Tsukuru
Сейчас нет на сайте
не пашет

Если помог - плюсуй репу ;)
RPGツクールのユーザー
TORДата: Понедельник, 11 Октября 2010, 16:57 | Сообщение # 3
частый гость
Сейчас нет на сайте
перепроверьте поскольку у многих работает. музыку загружать нужно вручную,mp3
uberchelДата: Пятница, 17 Декабря 2010, 21:51 | Сообщение # 4
частый гость
Сейчас нет на сайте
Из демо примера сделал )

Сделай мультиселект, а то так не удобно по 1 файлу перетаскивать:
Собственно вот начиркал функцию мультиселекта:

Code
function LoadFile(List:TListBox; mask:Boolean): Boolean;
var
   i: integer;
begin
  try
    with TOpenDialog.Create(nil) do
     begin
      Options:=
      [ofFileMustExist,
       ofAllowMultiSelect];
    if Execute then
       begin
        for i:=0 to Files.Count -1 do
         begin
         if Mask then
            List.Items.Add(StringReplace(Files[i],'"',#10,[rfReplaceAll]))
           else
            List.Items.Add(ExtractFileName(Copy(StringReplace(Files[i],'"',#10,
          [rfReplaceAll]),0,Length(StringReplace(Files[i],'"',#10,[rfReplaceAll]))
          -4)));
         end;
        Result:= True;
       end;
       List.Update;
      end;
    except
   Result:= False;
  end;
end;

Использование:

LoadFile(
ListBox1, - Компонент TListBox
false - Условеие true/false - показывать полный путь и расширение файла или нет
)

Code
if LoadFile(ListBox1, false) then
  //Код если все прошло нормально и загрузилось
     else
      код если произошла какая то ошибка.


// скоро тут что нибудь появится )
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » TORSUMYPlayer mp3 Delphi (с кучей наворотов в минимальном размере)
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг