Verificar permissão de escrita de dada directoria

[Betina 0]

Gostaria de saber se existe forma de saber se dada directoria tem permissão de escrita. Tentei a função seguinte mas por vezes deixa de funcionar quando se trata de um caminho UNC(ex: \\Pc_Servidor\Pasta\)function Verifica_PastaAcessivel( sCam: String ): Boolean;var lRes : Boolean; nError :Integer; F: TextFile;begin AssignFile(F, sCam + 'Acesso.txt'); {$I-} Rewrite(F); {$I+} nError := IOResult; if nError = 0 then begin lRes := True; CloseFile(F); DeleteFile(sCam + 'Acesso.txt'); end else begin lRes := False; end; Result := lResend;O que acontece por vezes é que IOResult = 3 (Path not found) A pasta existe, e cria na mesma o ficheiro mas devolve False.Se alguém puder me ajudar, acradecia :)Cumprimentos.Betina.

[Marcos Moleiro 0]

Veja se é isso que você quer!UnitSysUtilsprocedure TForm1.Button1Click(Sender: TObject);varAtributo: word;beginAtributo:=FileGetAttr(caminho_e_nome_da_pasta);if (Atributo and faReadOnly) = faReadOnly then Showmessage('Somente Leitura');end;t+Marcos