Ordner in den Eigenen Dateien systemweit erzeugen/löschen

[cruso]

Hi!

So kann man im aktuellen Benutzerkonto einen Ordner unter "Eigene Dateien" erstellen:

Delphi-Quellcode:

function GetSpecialFolder(hWindow: HWND; Folder: Integer): String;
var
  pMalloc: IMalloc;
  pidl: PItemIDList;
  Path: PChar;
begin
  // get IMalloc interface pointer
  if (SHGetMalloc(pMalloc) <> S_OK) then
  begin
    MessageBox(hWindow, 'Couldn''t get pointer to IMalloc interface.',
               'SHGetMalloc(pMalloc)', 16);
    Exit;
  end;

  // retrieve path
  SHGetSpecialFolderLocation(hWindow, Folder, pidl);
  GetMem(Path, MAX_PATH);
  SHGetPathFromIDList(pidl, Path);
  Result := Path;
  FreeMem(Path);

  // free memory allocated by SHGetSpecialFolderLocation
  pMalloc.Free(pidl);
end;

Und dann:

Delphi-Quellcode:

//...
CreateDir(GetSpecialFolder(Handle, CSIDL_PERSONAL)+'\Neuer Ordner');
//...

Jetzt meine Frage:
Wie kann man (wenn man Admin ist) einen solchen Ordner systemweit erstellen/löschen? Also immer in den Eigenen Dateien auf allen Benutzerkonten?


MfG
Cruso

[shmia]

Ich würde dies im Ordner C:\Documents and Settings\All Users ablegen.
Um dieses Verzeichnis zu bekommen

Delphi-Quellcode:

s :=GetSpecialFolder(Handle, CSIDL_COMMON_DOCUMENTS);
//Unterverzeichnis \Documents abtrennen
s := ExtractFilePath(s);

[cruso]

Zitat:

Zitat von shmia

Ich würde dies im Ordner C:\Documents and Settings\All Users ablegen.
Um dieses Verzeichnis zu bekommen

Delphi-Quellcode:

s :=GetSpecialFolder(Handle, CSIDL_COMMON_DOCUMENTS);
//Unterverzeichnis \Documents abtrennen
s := ExtractFilePath(s);

Irgendwie verstehe ich das jetzt nicht ganz. Wie kann ich da nun einen Ornder systemweit erzeugen?

Es ist des weiteren auch wichtig, dass jeder Benutzer seinen eigenen Ordner hat und nur seine Daten verändert und nicht die aller Benutzer.

[NicoDE]

Zitat:

Zitat von cruso

Wie kann man (wenn man Admin ist) einen solchen Ordner systemweit erstellen/löschen? Also immer in den Eigenen Dateien auf allen Benutzerkonten?

Was denn nun?
Einen Ordner, oder jeweils ein Ordner pro User?

Und was machst du, wenn die "Eigenen Dateien" auf einem Netzlaufwerk liegen bzw. auf dem Domänenserver...

[cruso]

Zitat:

Zitat von NicoDE

Zitat:

Zitat von cruso

Wie kann man (wenn man Admin ist) einen solchen Ordner systemweit erstellen/löschen? Also immer in den Eigenen Dateien auf allen Benutzerkonten?

Was denn nun?
Einen Ordner, oder jeweils ein Ordner pro User?

Und was machst du, wenn die "Eigenen Dateien" auf einem Netzlaufwerk liegen bzw. auf dem Domänenserver...

Einen Ordner pro User. Jeder User soll einen eigenen Ordner in seinen Eigenen Dateien haben.

[NicoDE]

Dann wirst du wohl das jeweilige Benutzerprofil laden, den Ort der jeweiligen "Eigenen Dateien" ermitteln und den Ordner anlegen müssen.

[cruso]

Zitat:

Zitat von NicoDE

Dann wirst du wohl das jeweilige Benutzerprofil laden, den Ort der jeweiligen "Eigenen Dateien" ermitteln und den Ordner anlegen müssen.

Anders ist das nicht möglich? Schade!

[EDatabaseError]

:? wenn man admin ist kommt man da nicht in alle Ordner - auch in die Eigenen Dateien der anderer User, oder :wiejetzt:

[NicoDE]

Zitat:

Zitat von cruso

Anders ist das nicht möglich?

Wie sonst?
SHGetFolderPath() kann ein Token übergeben werden, dass den Benutzer identifiziert. Um an das Token zu kommen, muss man den Benutzer erstmal anmelden...

Zitat:

Zitat von EDatabaseError

:? wenn man admin ist kommt man da nicht in alle Ordner - auch in die Eigenen Dateien der anderer User, oder :wiejetzt:

Klingt als ob du die Pfade zusammenbauen möchtest - vergiß es, die "Eigenen Dateien" eines jeden Accounts können irgendwo liegen.

[shmia]

Es gibt da noch den Ordner "Default User".
Vermutung: Wenn man einen neuen User anlegt und sich dann anmeldet, wird alles aus "Default User"
ins aktuelle Userverzeichnis kopiert.