앱을 실행하면 listbox에 자동으로 스마트폰 내에있는 .mp3파일들을 불러올 수 있게 하고싶은데,,,
초보라 어떻게해야할지 모르겟네요
procedure TForm1.AddListItem(list: array of string; itype: string);
var
c: integer;
LItem: TListBoxItem;
BitmapFile: TBitmap;
begin
ListBox1.BeginUpdate;
for c := 0 to Length(list) - 1 do
begin
LItem := TListBoxItem.Create(ListBox1);
begin
if BitmapFile <> nil then begin
LItem.ItemData.Bitmap.Assign(BitmapFile);
end;
end;
LItem.ItemData.Text := ExtractFileName(list[c]);
LItem.ItemData.Detail := list[c];
LItem.TagString := itype;
ListBox1.AddObject(LItem);
end;
ListBox1.EndUpdate;
end;