|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.06.2011, 00:04 | #1 |
Регистрация: 23.05.2011
Сообщений: 6
|
Как убрать путь загружаемых файлов в плеере плеером)
Всем привет,я написал плеер все работает,только я незнаю как убрать путь загружаемых файлов(гружу с txt файла) Подскажите если можите)
procedure TForm3.b1Click(Sender: TObject); var i:integer; begin OD1.Options:=[ofHideReadOnly,ofAllowMultiSelect,o fEnableSizing]; IF OD1.Execute Then Begin For I:=0 to OD1.Files.Count -1 do Begin SL.Add(OD1.Files[I]); LB.Items.Add(ExtractFileName(Od1.Fi les[I])); End; End; end; procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction); begin mp1.Close; form1.show; lb.Items.SaveToFile(GetCurrentDir+' \list.txt'); end; procedure TForm3.lbDblClick(Sender: TObject); begin mp1.FileName:=lb.Items[lb.ItemIndex]; mp1.Open; mp1.Play; end; procedure TForm3.FormCreate(Sender: TObject); SR: TSearchRec; begin SL:=TStringList.Create; lb.Items.LoadFromFile(GetCurrentDir +'\list.txt') /// нужно , чтобы эта музыка показывалась без пути end; procedure TForm3.FormDestroy(Sender: TObject); begin SL.Free; end; procedure TForm3.b3Click(Sender: TObject); begin Mp1.Pause; end; procedure TForm3.b5Click(Sender: TObject); begin Mp1.Stop; mp1.Previous; end; procedure TForm3.b4Click(Sender: TObject); begin Mp1.Play; end; procedure TForm3.b2Click(Sender: TObject); begin Mp1.FileName := (String(Lb.Items[Lb.ItemIndex+1])); Lb.ItemIndex := Lb.ItemIndex+1; Mp1.Open; Mp1.Play; end; procedure TForm3.b6Click(Sender: TObject); begin Mp1.FileName := (String(Lb.Items[Lb.ItemIndex-1])); Lb.ItemIndex := Lb.ItemIndex-1; mp1.Open; Mp1.Play; end; procedure TForm3.lbClick(Sender: TObject); begin mp1.FileName:=lb.Items[lb.ItemIndex]; mp1.Open; end; procedure TForm3.tTimer(Sender: TObject); begin if mp1.FileName<>'' then begin trbr1.Max:=mp1.Length; trbr1.Position:=mp1.Position; end; end; procedure TForm3.trbr1Change(Sender: TObject); begin If trbr1.Position<>mp1.Position then begin mp1.Position:=trbr1.Position; mp1.Play; end; end; end. |
02.06.2011, 00:33 | #2 |
Пользователь
Регистрация: 01.06.2011
Сообщений: 13
|
ExtractFileName
|
02.06.2011, 00:56 | #3 |
Регистрация: 23.05.2011
Сообщений: 6
|
ExtractFileName я эт знаю,но как его правильно использовать я не знаю(
|
02.06.2011, 15:44 | #4 |
Регистрация: 23.05.2011
Сообщений: 6
|
Все спасибо,я решиш проблему)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как создать эквалайзер в плеере | xakkkkker | Мультимедиа в Delphi | 8 | 12.06.2011 16:52 |
delphi как убрать из списка файлов '.' и '..'? | MetR | Помощь студентам | 6 | 05.04.2011 15:38 |
Delphi 2009. Как иземнить стандартный путь сохранения файлов? | TwiX | Общие вопросы Delphi | 2 | 25.08.2009 21:13 |
Имена загружаемых файлов на кириллице | krok | PHP | 3 | 05.12.2008 10:42 |
Как в медыа плеере перекинуть песню | SeRhy | Помощь студентам | 1 | 14.11.2007 08:53 |