[sariman]

И еще одно, лазил в гугле, так и не нашел решения, как через GetOpenFileName добавить пути файлов в ListBox, вот что у меня есть на данный момент:

Код:

var
  OpenFile: TOpenFileName;
  Buf: PChar;
begin
  GetMem(Buf, 130);
  with OpenFile do
  begin
    lStructSize := SizeOf(OpenFile);
    hWndOwner := hInstance;
    lpstrfilter := 'MP3 Файлы' + #0 + '*.mp3' + #0#0;
    nMaxCustFilter := 255;
    nFilterIndex := 1;
    lpstrFile := Buf;
    nMaxFile := 128;
    lpstrFileTitle := nil;
    lpstrInitialDir := nil;
    lpstrTitle := OpenDlgCap;
    Flags := OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST or
      OFN_ALLOWMULTISELECT or OFN_EXPLORER
  end;
  if GetOpenFileName(OpenFile) then
    MessageBox(0, Buf, 'File', mb_ok); // при выборе нескольких файлов вообще не чего не выводится
  FreeMem(Buf, 130)
end;

При выборе одного файла все замечательно, но при множественном выборе не знаю как решить данную проблему.