Привет, на форме 2 listbox'а. В listbox1 Идет загрузка плейлиста таким вот образом.
Code
Uses fileCtrl;
procedure TForm1.PlayList(Path: string);
var
SearchRec: TSearchRec;
begin
ListBox1.Clear;
if FindFirst(Path + '*.mp3', faAnyFile, SearchRec) =0 then
begin
ListBox1.Items.Add(Path+SearchRec.Name);
while (FindNext(SearchRec) = 0) do
ListBox1.Items.Add(Path+SearchRec.Name);
end;
ListBox1.ItemIndex := 0;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
Root: string;
pwRoot : PWideChar;
Dir: string;
begin
Root := '';
GetMem(pwRoot, (Length(Root)+1) * 2);
pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);
if not SelectDirectory('Выберите папку', pwRoot, Dir)
then Dir :=''
else Dir := Dir+'\';
SoundPath := Dir;
PlayList(SoundPath);
end;
После загрузки скрываю пути к файлам, тока название треков.
Code
procedure TForm_player.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
const W = 16;
H = 16;
begin
with (Control as TListBox).Canvas do
begin
FillRect(Rect);
end;
with (control as TListBox).canvas do
begin
Font.Color := clGray;
Font.Size := 9;
Brush.Style := bsClear;
Brush.Color := clGray;
SetBkMode(ListBox1.canvas.Handle, TRANSPARENT);
TextOut(Rect.Left + w, Rect.Top, IntToStr(Index) + '. ' + extractfilename(Listbox1.Items[index]));
end;
end
Задача такова: копировать выделенный мп3 файл, из listbox1 в указанную мной папку (путь к папке для копирования лежит в переменной qwerty) После копирования, внести в listbox название скопированного трека, и в listbox1 напротив скопированного трека поставить иконку.
Так же интересует как вырезать файл и вставить, по нажатию одной кнопки(По такому же принципу.).