luizrocha13

Bom você pode simplesmente usar comandos do dos,use a sua lógica : Para criar uma pasta inacessivel: var dir:string; begin dir:=ExtractFilePath(Application.Exename)+'Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}'; if not DirectoryExists(Dir) then begin ForceDirectories(Dir); WinExec('cmd.exe /c attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"', 0); end; o exemplo acima não bloqueia a renomeação da pasta, para isso programe sua aplicação para criar um arquivo desktop.ini dentro da pasta a ser bloqueada com o seguinte conteúdo: [.ShellClassInfo] CLSID={645FF040-5081-101B-9F08-00AA002F954E}