Как изменить свойтва папки через Delphi

[Isa]

Как изменить свойтва папки через Delphi например чтобы папка скрылась или запрет чтения папки или файла. Заранее спасибо

[Stilet]

свойтва папки

SetFileAttributes

или запрет чтения папки или файл

У-у-у
это посложнее:SetNamedSecurityInfo
У меня так и не получилось ее заюзать

[raxp]

заинтересовался вашей проблемой... зы тему тему тоже смотрел... хоть это и не совсем красиво, но решение в лоб и быстро может быть таким: можно изначально создать (задать) файл (папку) с нужными правами доступа (владельцем), а потом просто скопировать эти права на нужный файл (опробовал- працюэ)

uses AclAPI, AccCtrl;
...

function CopySecurity(inFile, outFile: string): dword;
var
  pDACL: PACL;
  pSD: PSECURITY_DESCRIPTOR;
begin
  result := GetNamedSecurityInfo(Pchar(inFile), SE_FILE_OBJECT,
    DACL_SECURITY_INFORMATION, nil, nil, PACL(@pDACL), nil, pSD);
  if result <> ERROR_SUCCESS then exit;
 
  result := SetNamedSecurityInfo(Pchar(outFile), SE_FILE_OBJECT,
    DACL_SECURITY_INFORMATION, nil, nil, pDACL, nil)
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
 CopySecurity('1.txt', '2.txt')
end;