NTFS - Dateiberechtigungen übernehmen

[Pentium 80486]

Hallo,

derzeit verwende ich, da es die für meine Zwecke schnellste Methode ist, SHFileOpStruc, um Dateien zu kopieren.
Leider gehen dabei die Werte der Sicherheitsattribute verloren.

Der Code ist kein Geheimnis und Standard:

Delphi-Quellcode:

function copyFileEx(const aSourceFile, aDestFile: string): Boolean;
var
 fos: TSHFileOpStruct;
begin
 ZeroMemory(@fos, SizeOf(fos));

 with fos do
  begin
   wFunc := FO_COPY;
   fFlags := FOF_NO_UI;
   pFrom := PChar(aSourceFile + #0);
   pTo := PChar(aDestFile)
  end;

 Result := (0 = SHFileOperation(fos));
end;

Wie genau muss ich eine Datei kopieren, damit auch die Sicherheitsattribute und dessen eingestellten Werte übertragen werden?