Auf Windowsordnerstruktur zugreifen

[samso]

Delphi-Quellcode:

//------------------------------------------------------------------------------
// Eine Verzeichnisliste lesen - im Ergebnis werden nur die Dateinamen übergeben
//------------------------------------------------------------------------------

function AppendDirList(const DirList: TStrings;
                       const Path: String): Integer;
var
  SearchResult: TSearchRec;
  Error: Integer;
begin
  Result := -1;
  if DirList<>nil
  then begin
    Error := FindFirst(Path, faDirectory, SearchResult);
    try
      While Error=0 do
      begin
        if (SearchResult.Attr and faDirectory = faDirectory) and
           (SearchResult.Name <> '.') and (SearchResult.Name <> '..')
        then begin
          DirList.Add(SearchResult.Name);
        end;
        Error := FindNext(SearchResult);
      end;
    finally
      FindClose(SearchResult);
    end;
    Result := DirList.Count;
  end;
end;

function GetDirList(const DirList: TStrings;
                    const Path: String): Integer;
begin
  Result := -1;
  if DirList<>nil
  then begin
    DirList.Clear;
    Result := AppendDirList(DirList, Path);
  end;
end;