Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quinta-feira, 15 de outubro de 2015

DELPHI - Função para verificar se o diretório é somente leitura - Function Path Is Ready Only

Reações: 


function PathIsReadyOnly(Path: string): boolean;
var
  Err: Cardinal;
  StrL : TStringList;
begin
  Err := SetErrorMode(SEM_FAILCRITICALERRORS);
  StrL := TStringList.Create;
  Result := True;
  if Copy(Path, Length(Path), 1) <> '\' then
    Path := Path + '\';
  try
    try
      StrL.SaveToFile(Path + 'TestFile.txt');
      Result := False;
      try
        DeleteFile(Path + 'TestFile.txt');
      except
      end;
    except
      Result := True;
    end;
  finally
    if Assigned(StrL) then
      SysUtils.FreeAndNil(StrL);
    SetErrorMode(Err);
  end;
end;

// usando:

  if PathIsReadyOnly('D:\') then // pode ser usado com caminho de rede, \\tsclient , unidade de cd, dvd, etc...
    ShowMessage('É somente leitura')
  else
    ShowMessage('Não é somente leitura');

end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer