Getallusers-Pfade: Notlösung

[Go2EITS]

@Luckie:
Danke für den Hinweis. Nachstehend das Ergebnis, das mir Eurer Hilfe entstanden ist!

Da hier ein Missverstänis vorliegt:
Ich will alle Benutzer unter "Dokumente und Einstellungen".
Also nicht nur C:\Dokumente und Einstellungen\All Users sondern alle Einträge.
Admin, All Users, Default User, und andere Benutzer, die in unter "Dokumente und Einstellungen"
stehen. Das ist mit dem Thread und der "Notlösung" die nun eine gute, variable Lösung geworden ist. DP sei Dank!

Wir brauchen zuerst:
function ExpandEnvironment(const strValue: string): string;
function GetProfilesDir:String;
und dann die Hauptprocedure:
procedure GetAllUser;

Delphi-Quellcode:

function ExpandEnvironment(const strValue: string): string;
var
  chrResult: array[0..1023] of Char;
  wrdReturn: DWORD;
begin
  wrdReturn := ExpandEnvironmentStrings(PChar(strValue), chrResult, 1024);
  if wrdReturn = 0 then
    Result := strValue
  else
  begin
    Result := Trim(chrResult);
  end;
end;

function GetProfilesDir:String;
var
  Reg: TRegistry;
  Dir,Systemdrive:String;
  begin
  result:='';Dir:='';
  Reg := TRegistry.Create;
  with Reg do
      begin
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Profilelist', False) then
         begin
         Dir:=ReadString('ProfilesDirectory');
         // Systemdrive
         Systemdrive:=Expandenvironment('%Systemdrive%');
         // Ergebnis von '%Systemdrive%' "befreien"
         Delete(Dir,1,13);
         // Systemdrive + Dir = ? Ergebnis
         Result:=Systemdrive+Dir;;
         CloseKey;
         end;
      Free;
     end;
end;

Procedure GetAllUser;
var
  srSearch: TSearchRec;
  sSearchPath: string;
  i: Integer;
  sRootDir:string;
begin
   // z. b. C:\Dokumente und Einstellungen
   sRootDir:=GetProfilesDir;
  // 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;//TRY...
      end;// IF...
end;

So. Nun noch:

Delphi-Quellcode:

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

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;

PS: Code aus Compiler übernommen und nicht "aus dem Kopf" geschrieben! Müsste "fehlerfrei" sein.
Viel Vergnügen!
Go2EITS