Comment créer un répertoire en cours d'exécution avec tous les droits sur tous les utilisateurs, en utilisant Delphi?

Question

Je dois créer un répertoire à l'intérieur de COMMONAPPDATA (s'il n'existe pas) avec tous les droits de tous les utilisateurs de cet ordinateur (tout le monde pourra lire ou écrire dans ce répertoire). Je suis à la recherche de code natif simple pour faire cela en Delphi, sans utiliser de bibliothèques ou composants tiers.

Answer 1

Je voudrais pouvoir commenter et demander "pourquoi?".

L'exécutable devrait être exécuté en mode administrateur (si la plupart de vos utilisateurs verraient invite d'élévation)

Pourquoi ne pas utiliser les dossiers APPDATA ou localappdata, ou la part du public?

est ici un lien à une question similaire: Delphi 2009 classes/components to read/write file permissions

Answer 2

@WarmBooter, vous pouvez utiliser la fonction CreateDirectory pour accomplir cette tâche.

voir cet exemple:

program Project645; 

{$APPTYPE CONSOLE} 

uses 
    AccCtrl, 
    AclApi, 
    Windows, 
    SysUtils; 


type 

    PTrusteeW = ^TTrusteeW; 
    TTrusteeW = record 
    pMultipleTrustee: PTrusteeW; 
    MultipleTrusteeOperation: DWORD; { MULTIPLE_TRUSTEE_OPERATION } 
    TrusteeForm: DWORD; { TRUSTEE_FORM } 
    TrusteeType: DWORD; { TRUSTEE_TYPE } 
    ptstrName: PWideChar; 
    end; 
    TExplicitAccessW = record 
    grfAccessPermissions: DWORD; 
    grfAccessMode: DWORD; { ACCESS_MODE } 
    grfInheritance: DWORD; 
    Trustee: TTrusteeW; 
    end; 



Function CreateDirectoryFullAccess(NewDirectory:String) :Boolean; 
var 
    SecurityAttributes : TSecurityAttributes; 
    SecurityDescriptor : PSecurityDescriptor; 
    ExplicitAccess  : array[0..0] of TExplicitAccessW; 
    easize    : integer; 
    pACL    : Windows.PACL; 
begin 
    ExplicitAccess[0].grfAccessPermissions:= STANDARD_RIGHTS_ALL or SPECIFIC_RIGHTS_ALL; 
    ExplicitAccess[0].grfAccessMode:=Ord(SET_ACCESS); 
    ExplicitAccess[0].grfInheritance:=SUB_CONTAINERS_AND_OBJECTS_INHERIT; 
    ExplicitAccess[0].Trustee.TrusteeForm:=Ord(TRUSTEE_IS_NAME); 
    ExplicitAccess[0].Trustee.TrusteeType:=Ord(TRUSTEE_IS_USER); 
    ExplicitAccess[0].Trustee.ptstrName:='Everyone';//Access for all users 
    SetEntriesinAclW(1,@ExplicitAccess,nil,pACL);//creates a new access control list 

    //SecurityDescriptor:= AllocMem(Sizeof(SECURITY_DESCRIPTOR_MIN_LENGTH)); 
    SecurityDescriptor:= AllocMem(SECURITY_DESCRIPTOR_MIN_LENGTH); 
    InitializeSecurityDescriptor(SecurityDescriptor,SECURITY_DESCRIPTOR_REVISION); 
    SetSecurityDescriptorDacl(SecurityDescriptor,true,pacl,false);//sets information in a discretionary access control list (DACL). 

    FillChar(SecurityAttributes,sizeof(SECURITY_ATTRIBUTES),#0); 
    SecurityAttributes.nLength:=sizeof(SECURITY_ATTRIBUTES); 
    SecurityAttributes.lpSecurityDescriptor:=SecurityDescriptor; 
    SecurityAttributes.bInheritHandle:=false; 
    CreateDirectory(PChar(NewDirectory),@SecurityAttributes); 
    Result:=GetLastError=0;// if all ok, GetLastError = 0 
end; 

begin 
    if CreateDirectoryFullAccess('C:\MyNewDir') then 
    Writeln('Ok') 
    else 
    Writeln('Failed'); 

    Readln; 
end.