DELPHI 

WOLF3848, почитай ты книжку в конце концов. Это же базовые знания, которые доходчиво объясняются в любой книге типа "Delphi для начинающих". Экспериментировать конечно полезно, но без этих знаний ты всю жизнь будешь на форумах спрашивать такие элементарные вещи.

НУ А ПОМОЧЬ НИ КАК НЕ МОЖЕШЬ?

Во первых нужно выяснить почему не добавляются файлы. Может быть ты где-то после очищаешь список.
-Запусти программу по шагам с параметром и проверь всё.

всё сделал!тока ещё хочу сделать так чтобы как в винампе взял файлы и перетащил их в плей-лист и они туда добавились! как ето написать?

1) в секцию USES добаляешь модуль ShellApi
2) в объявлении класса формы добаляеш секцию protected и вней описываешь процедуру:

Код:

public     { Public declarations }     // ... тут твои процедуры и функции ... protected     procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles; end;

3) делаеш реализацию этой процедуры:

Код:

procedure TForm1.WMDROPFILES(var Msg: TMessage); var   i, count, size: integer;   File_name: PChar; begin   inherited;   count := DragQueryFile(Msg.WParam, $FFFFFFFF, File_name, 255);   for i := 0 to (count - 1) do   begin     size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;     File_name := StrAlloc(size);     DragQueryFile(Msg.WParam, i, File_name, size);     ListBox1.items.add(StrPas(File_name));     StrDispose(File_name);   end;   DragFinish(Msg.WParam); end;

4) при создании формы вызываеш DragAcceptFiles(Handle, true);

Код:

procedure TForm1.FormCreate(Sender: TObject); begin   // ... тут твоё ...   DragAcceptFiles(Handle, true); end;

при перетягивании мышкой файлов они добавляются в ListBox1

Всё спасибо тока как сделатьь что бы в плай-листе он мне не прописывал весь путь? а тока название трека

ExtractFileName(FileName: string): string; - извлекает имя файла из полного пути
ExtractFileExt(FileName: string): string; - извлекает расширение файла из имени
ExtractFilePath(FileName: string): string; - извлекает полный путь папки, в которой находится файл из полного пути файла

nayk писал :ExtractFileName(FileName: string): string; - извлекает имя файла из полного пути
ExtractFileExt(FileName: string): string; - извлекает расширение файла из имени
ExtractFilePath(FileName: string): string; - извлекает полный путь папки, в которой находится файл из полного пути файла

действительно, проще сразу код выложить

Я писал mp3 плеер, и не только mp3 он поддерживал, а еще кучу формматов, wma, ogg etc. C поддержкой скинов и плагинов.
WOLF3848 извини конечно, лень ценится в программисте, потому что лень-двигатель прогресса, благодаря ей появляются простые коды на сложные алгоритмы. НО такой лени я не видел. Ты спрашиваешь все базовое, все то что есть в любом спрвочнике, на любом сайте для программистов. Если ты пишешь для себя, то лучше не епи мозг людям здесь. Я с 0, не имея навыков программирования написал плеер, по функциональности не уступающий винамп 2.хх не спросив на воруме не разу. Потому что в инете ЕСТЬ все. Ищи. Если тебе все подскажут, толку от этого не будет, программист из тебя такой же будет, как из Буша президент

Вольф, ну выложи хоть посмотреть, что получилось