Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.06.2011, 00:04   #1
Avelhar
 
Регистрация: 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.
Avelhar вне форума Ответить с цитированием
Старый 02.06.2011, 00:33   #2
RinatKzn
Пользователь
 
Регистрация: 01.06.2011
Сообщений: 13
По умолчанию

ExtractFileName
RinatKzn вне форума Ответить с цитированием
Старый 02.06.2011, 00:56   #3
Avelhar
 
Регистрация: 23.05.2011
Сообщений: 6
По умолчанию

ExtractFileName я эт знаю,но как его правильно использовать я не знаю(
Avelhar вне форума Ответить с цитированием
Старый 02.06.2011, 15:44   #4
Avelhar
 
Регистрация: 23.05.2011
Сообщений: 6
По умолчанию

Все спасибо,я решиш проблему)
Avelhar вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как создать эквалайзер в плеере 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