TListView файловый менеджер

[Isabel]

Пишу файловый менеджер. Для этих целей пока знаю только функции FindNext и FindFirst, если кто знает лучший вариант посоветуйте пожалуйста.
Столкнулась с проблемой в TListView. Вот код:

procedure TMainForm.actRefreshExecute(Sender: TObject);
var res : TSearchRec;
begin
     lvFiles1.Clear;
     if ( FindFirst ( '*.*', faAnyFile, res ) <> 0 ) then Exit;
     repeat
           lvFiles1.Items.Add.Caption := res.name;
           if ( res.Attr = faDirectory ) then lvFiles1.Items[lvFiles1.ItemIndex].ImageIndex := 0
           else lvFiles1.Items[lvFiles1.ItemIndex].ImageIndex := 1;
     until ( FindNext ( res ) <> 0 );
end;

Картинка 0 - иконка папки, картинка 1 - иконка файла.

Как сделать так что бы сортировало список: сначала папки, а потом файлы, а не по алфавиту и все в перемешку? И как убрать из списка эти непонятные папки '.' и '..' ?
Зарание благодарна.

[veniside]

> Как сделать так что бы сортировало список

SortType := stData or stBoth; OnCompare();

> как убрать из списка

if (('.' <> res.name) and ('..' <> res.name)) then ...

[New man]

function TForml.AddFile(FileMask: string; FFileAttr:DWORD): Boolean;
   var
     Shlnfo: TSHFilelnfo;
      attributes: string;
       FileName: string;
      hFindFile: THandle;
       SearchRec: TSearchRec;
  function AttrStr(Attr: integer): string;
     begin
       Result := " ;
       if (FILE_ATTRIBUTE_DIRECTORY and Attr) > 0 then Result := Result + ";
       if (FILE ATTRIBUTE ARCHIVE and Attr)                            
         > 0 then Result := Result + 'A';
       if (FILE_ATTRIBUTE_READONLY and Attr) > 0 then Result := Result + 'R';
       if (FILEJYTTRIBUTE_HIDDEN and Attr) > 0 then Result := Result + 'H';
       if (FILE_ATTRIBUTE_SYSTEM and Attr) > 0 then Result := Result + 'S';
     end;
begin
     ListViewl.Items.BeginUpdate;
     ListViewl.Items.Clear;
     Result:= false;
     hFindFile := FindFirst(FileMask, FFileAttr, SearchRec);
     if hFindFile <> INVALID_HANDLE_VALUE then
    try
      repeat
          with SearchRec.FindData do
            begin
              if (SearchRec.Name = '.') or (SearchRec.Name = '..') or
              (SearchRec.Name = '') then continue;
              FileName := SlashSep(Edit1.Text, SearchRec.Name);
              SHGetFileInfo(PChar(FileName), 0, Shlnfo, SizeOf(Shlnfo),
                     SHGFI_TYPENAME or SHGFI_SYSICONINDEX);
              Attributes := AttrStr(dwFileAttributes);
                with ListViewl. Items.Add do
                   begin
                     Caption := SearchRec.Name;
                       //Присваиваю размер
                     Subltems.Add(IntToStr(SearchRec.Size));
                      Subltems.Add((ShInfo.szTypeName));
                     Subltems.Add(FileTimeToDateTimeStr(ftLastwriteTime));
                     Subltems.Add(attributes);
                     Subltems.Add(Editl.Text + cFileName);
                     if (FILE_ATTRIBUTE_DIRECTORY and dwFileAttributes) > 0
                             then
                    Subltems.Add('dir')
                    else
                         Subltems.Add('file');
                    end;
                 Result := true;
               end;
            until (FindNext(SearchRec) <> 0);
         finally
            FindClose(SearchRec);
        end;
         ListViewl. Items . EndUpdate;
end;

от Михаила Фленова('Библия Delphi')

[Isabel]

Сасибо! Убрала "." и ".." добавлением в начало цикла простого

 if ( res.Name = '.' ) or ( res.Name = '..' ) then Continue;

С сортировкой пока не разобралась.
И иконки отображаются только при .ViewSyle := vsIcon; Как их активировать в vsList и vsReport ?