Sicherheitseinstellungen von Dateien ändern

[Tpercon]

Zur Zeit sieht es so aus:

Delphi-Quellcode:

var FileH : THandle;
    FileName : String;
    SecAtr : Security_Attributes;
begin
  if OpenDialog1.Execute then begin
    // Dateiname mit komlettem Pfad
    FileName := OpenDialog1.FileName;
    // Security_Attributes - Struktur füllen
    Fillchar(SecAtr, SizeOf(Security_Attributes), 0);
    SecAtr.bInheritHandle := True;
    SecAtr.nLength := SizeOf(SecAtr);
//    SecAtr.lpSecurityDescriptor :=
    // Handle holen
    FileH := CreateFile( PChar(FileName),
           GENERIC_ALL,//FILE_ALL_ACCESS,
           FILE_SHARE_WRITE,
           SecAtr,
           OPEN_EXISTING,
           FILE_ATTRIBUTE_NORMAL,
           0);
    // Handle prüfen
    If (FileH <> 0) and (GetLastError = Error_Success) then begin
    // und jetzt SetSecurityInfo auslesen

    end;
    CloseHandle(FileH);
  end;
end;

Also fast alles noch von dir. Nur ich bekomme das einfach nicht richtig weiter hin. Zum verzweifeln.

[edit=sakura]Doppelpost gelöscht. Mfg, sakura[/edit]