Es klemmt: DACL einer Datei ersetzen

[messie]

Moin,

nachdem ich mich jetzt einige Zeit mit den Zugriffseinstellungen für Dateien beschäftigt habe, wollte ich mal ein paar Schritte probieren. Im ersten Schritt ein DACL mit einem NULL-DACL überschreiben, später weiter.

Ich scheitere aber schon im ersten Schritt und das könnte ein ANSI/Unicode-Problem sein.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SecurityAttributes : TSecurityAttributes;
  SecurityDescriptor : TSecurityDescriptor;
  filename : PAnsiChar;
  errcode : integer;
begin
  InitializeSecurityDescriptor(@SecurityDescriptor,SECURITY_DESCRIPTOR_REVISION);

  SetSecurityDescriptorDacl(@SecurityDescriptor, true, nil, false);
  SecurityAttributes.nLength := SizeOf(SecurityAttributes);
  SecurityAttributes.lpSecurityDescriptor := @SecurityDescriptor;
  SecurityAttributes.bInheritHandle := false;

  filename := PAnsiChar('C:\schrott.txt');


  errcode:=SetNamedSecurityInfo(filename, SE_FILE_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, @SecurityAttributes, nil);

  if errcode <> 0 then
  begin
    ShowMessage(syserrormessage(errcode));
  end;
end;

Das ist nach ein paar Tagen : gar nicht mehr so anspruchsvoll, ich bekomme aber die Meldung "Das System kann die angegebene Datei nicht finden".
Daher gehe ich von einem Char-Problem aus, denn wenn ich die Datei mit den obigen SecurityAttributes erstelle, hat sie tatsächlich ein NULL-DACL.

Grüße, Messie

[Dezipaitor]

Wenn du Delphi 2009 oder neuer einsetzt, dann musst du explizit SetNamedSecurityInfoA aufrufen.

Nimm statt PAnsiChar den AnsiString.

[messie]

Zitat von Dezipaitor:

Wenn du Delphi 2009 oder neuer einsetzt, dann musst du explizit SetNamedSecurityInfoA aufrufen.

Nimm statt PAnsiChar den AnsiString.

Danke schonmal, ich hatte so eine Ahnung, in dem Thema auf Dich zu treffen

Immerhin bin ich damit eine Fehlermeldung weiter, die Struktur der ACL ist jetzt als unzulässig bemängelt. Das werde ich morgen nochmal nachlesen.

Danke, Messie

[Dezipaitor]

Du rufst auch SetNamedSecurityInfo völlig falsch auf
Da wird garnicht SecurityAttributes verwendet, sondern nur Owner, Group, DACL und SACL. Nimm SetFileSecurity, wenn du mit ACLs experimentieren willst (die Funktion ist veraltet).

[messie]

Zitat von Dezipaitor:

Du rufst auch SetNamedSecurityInfo völlig falsch auf
Da wird garnicht SecurityAttributes verwendet, sondern nur Owner, Group, DACL und SACL. Nimm SetFileSecurity, wenn du mit ACLs experimentieren willst (die Funktion ist veraltet).

Ja, das war zu umständlich, kam noch vom Erstellen der Datei mit CreateFile. Jetzt verwende ich nur die DACL und damit kann ich die Datei auf ein NULL-DACL setzen.
Ist das in Ordnung so? Denn da würde ich jetzt weiter machen und die DACL mit anderen Einstellungen füttern. Dann hätte ich (endlich) die Möglichkeit Dateien zu erstellen oder zu ändern. Mit Verzeichnissen müsste das dann ja analog gehen.

Delphi-Quellcode:

  SecurityDescriptor : TSecurityDescriptor;
  locDACL : PACL;
  filename : PAnsiChar;
  errcode : integer;
begin
  InitializeSecurityDescriptor(@SecurityDescriptor,SECURITY_DESCRIPTOR_REVISION);

  SetSecurityDescriptorDacl(@SecurityDescriptor, true, nil, false);

  locDACL := SecurityDescriptor.Dacl;

  filename := PAnsiChar('C:\schrott.txt');

  errcode:=SetNamedSecurityInfoA(filename, SE_FILE_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, locDACL, nil);

  if errcode <> 0 then
  begin
    ShowMessage(SysErrorMessage(errcode));
  end;
end;

Grüße, Messie

[Dezipaitor]

Warum nimmst du überhaupt AnsiChar?