Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  Re: Ordner in einer Listbox auflisten

    Delphi
    by Nogge, 10. Apr 2005
  Procedure FindDirs(DirPath: String; StringList:TStrings; Recurse: Boolean = false);
  var SR:TSearchRec;
  begin
  if AnsiLastChar(DirPath)^ <> '\'
  then DirPath:=DirPath + '\';
  try
  { im angegebenen Verzeichniss nach Unterordnern suchen -- }
  if FindFirst(DirPath+'*.*',faDirectory,SR)=0 then
  repeat
  { wenn SR ein Ordner ist und nicht '.' und '..' heißt, dann... }