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;