Getallusers-Pfade: Notlösung

[Go2EITS]

Ich habe nach Getallusers gesucht und keinen funktionierenden Code gefunden. Ich stelle Euch mal die "Notversion", der mir die Pfade liefert, hier zur Verbesserung rein.
[EDIT]
Verbesserungen dank Ultimator:
AddDirSeparator rausgeworfen, weil es ja IncludeTrailingPathDelimiter gibt!
Code hier geändert:

Delphi-Quellcode:

  // Ist hier Quatsch, weil ich ja  sRootDir:='C:\dokumente und einstellungen'; vorgegeben habe.
    // für meinen Fall daher vorerst so: 
     sSearchPath := IncludeTrailingPathDelimiter(sRootDir);
    //statt 
     sSearchPath :='C:\dokumente und einstellungen\'

 
   /// Diese Zeile 
  If DirectoryExists('C:\dokumente und einstellungen') then
  // wie folgt geändert:
  If DirectoryExists(sRootDir) then

Naja, solche Überlegungen kommen einem doch erst bei der intensiven Durchsicht. Nachfolgend steht der korrigierte Code.
[\EDIT]

Die Version Getsubdirs von Torry habe ich verändert und bekomme nun alle (User)Pfade unter "Dokumente und einstellungen". Sogar den HiddenDir "Default User". Ich weiss, es ist eine unsaubere Notlösung, weil ja wohl in jeder Sprache der Path anders lautet. Er geht halt nur auf einer deutschen Maschine. Für Verbesserungsvorschläge sind wir und ich sehr aufgeschlossen!

Delphi-Quellcode:

// Im VAR-Teil der Unit/Form einn TStringlist Namens "u" anlegen:
var
   u:TStringList; // Da stehen die Userpfade dann drin

Hier die von Torry geänderte Version GetSubDir in GetAllUser geändert und eingefügt:

Delphi-Quellcode:

Procedure GetAllUser;
var
  srSearch: TSearchRec;
  sSearchPath: string;
  i: Integer;
  sRootDir:string;
begin
  //Notlösung:
  sRootDir:='C:\dokumente und einstellungen';
  // Sicherheitsabfrage
  If DirectoryExists(sRootDir) then
  begin
  //
  u := TStringList.Create;
  u.BeginUpdate;
  try
    sSearchPath := IncludeTrailingPathDelimiter(sRootDir);
    if FindFirst(sSearchPath + '*', faDirectory or faHidden, srSearch) = 0 then
      repeat
        if ((srSearch.Attr and faDirectory) = faDirectory) and
          (srSearch.Name <> '.') and
          (srSearch.Name <> '..')then
          u.Add(sSearchPath + srSearch.Name);
        until (FindNext(srSearch) <> 0);
    FindClose(srSearch);
  finally
  u.EndUpdate;
  end;
end;
end;

Bitte unter Form.close ein
FreeAndNil(u); einfügen, damit die Stringlist "u" sauber gelöscht wird.

Und so rufe ich mal die Procedure (über Button auf der Form) auf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var i:Integer;
begin
      GetAllUser;
      // Nur zum Testen notwendig:
      showmessage('Anzahl User: '+(inttostr(u.count)));
      for i:=0 to U.count-1 do ShowMessage('UserPfade: '+u[i]);
end;