Buscar por:

Ocultar diretório / pasta

Código

{Podemos usar a função FileSetAttr da SysUtils para alterar propriedades de arquivos e diretórios:

function FileSetAttr(const FileName: string; Attr: Integer): Integer;

Se alterado com sucesso ela retorna 0. Caso contrário ela retorna o código do erro.

ex.}

var

  Result: Integer;

begin

  Result := FileSetAttr('C:Pasta', FileGetAttr('C:Pasta') or faHidden);

  if Result = 0 then

    ShowMessage('Diretório/Arquivo alterado com sucesso!')

  else

    ShowMessage('Erro ao alterar as propriedades. Código: ' + IntToStr( Result ) );

end;

//Para saber mais sobre a função visite 

delphibasics.co.uk/RTL.asp?Name=FileSetAttr