Discussion :

[mixi]

Bonjour,

Sur Windows NT, dans les propriétés des dossiers et des fichiers, il existe un onglet "Sécurité" dans lequel il y a une section "Appartenance". Cette dernière permet de connaître l'identifiant de session de la personne ayant créé le dossier ou le fichier et ma question porte à ce niveau-là.

Quelle fonction DELPHI/SDK utiliser pour récupérer l'identifiant NT du propriétaire (créateur) d'un dossier/fichier sous NT ?

Merci d'avance à ceux qui pourront m'aider.

[Lung]

Sous Windows 2000, j'arrive a récupérer la liste des personnes ou des groupes ayant des droits sur un fichier (ou un répertoire), ainsi que le détail de leur droits.
Mais, je ne vois pas de section "Apartenance".
Elle a été supprimée dans 2000 ?

[mixi]

En fait, je ne l'ai vu que sur NT. Jamais vu sur XP, ni sur 95 ou 98.[/img]

[Lung]

http://www.developpez.net/forums/viewtopic.php?t=22822

http://www.vclcomponents.com/search....D_CATEGORY=181

[mixi]

Merci Lung. Finalement, j'ai quand même pu trouver une fonction toute faite qui répond parfaitement à mon besoin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
function GetFileOwner(FileName: string;
   var Domain, Username: string): Boolean;
var
   SecDescr: PSecurityDescriptor;
   SizeNeeded, SizeNeeded2: DWORD;
   OwnerSID: PSID;
   OwnerDefault: BOOL;
   OwnerName, DomainName: PChar;
   OwnerType: SID_NAME_USE;
begin
   GetFileOwner := False;
   GetMem(SecDescr,1024);
   GetMem(OwnerSID,SizeOf(PSID));
   GetMem(OwnerName,1024);
   GetMem(DomainName,1024);
   try
      if not GetFileSecurity(PChar(FileName),
	 OWNER_SECURITY_INFORMATION,
	 SecDescr,1024,SizeNeeded) then
	 Exit;
      if not GetSecurityDescriptorOwner(SecDescr,
	 OwnerSID,OwnerDefault) then
	 Exit;
      SizeNeeded := 1024;
      SizeNeeded2 := 1024;
      if not LookupAccountSID(nil,OwnerSID,OwnerName,
	 SizeNeeded,DomainName,SizeNeeded2,OwnerType) then
	 Exit;
      Domain := DomainName;
      Username := OwnerName;
   finally
      FreeMem(SecDescr);
      FreeMem(OwnerName);
      FreeMem(DomainName);
   end;
   GetFileOwner := True;
end;

Il suffit d'indiquer dans la variable 'Filename' soit le nom d'un dossier, soit le nom d'un fichier, et la fonction détermine (grâce à la fonction GetFileSecurity) le propriétaire du fichier.