Getallusers-Pfade: Notlösung

[Go2EITS]

@Luckie
Hab gegugt und den schnell geschrieben (vor 3 Monaten noch undenkbar) und getestet und es läuft unter XP/Windows2000.

Delphi-Quellcode:

Function GetProfilesDir:String;
var
  Reg: TRegistry;
  Dir,Systemdrive:String;
  begin
  result:='';Dir:='';
  Reg := TRegistry.Create;
  try
  with Reg do
  begin
  RootKey := HKEY_LOCAL_MACHINE;
  OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Profilelist', False);
  Dir:=ReadString('ProfilesDirectory');
  // Systemdrive
  Systemdrive:=Expandenvironment('%Systemdrive%');
  // Ergebnis von '%Systemdrive%' "befreien"
  delete(dir,1,13);
  // Systemdrive + Dir =
  Result:=Systemdrive+dir;;
  CloseKey;
  Free;
  end;
  except on E:Exception do
     begin
     ShowMessage('Registry: Lesen von SOFTWARE\Microsoft\Windows NT\CurrentVersion\Profilelist fehlgeschlagen');
     end;
end;
end;

Danke Luckie! Man soll doch den Tag nicht vor dem Abend loben!
Beste Grüße
Go2EITS