Delphi怎么判断网上邻居共享目录的权限是否可以写？

Question

因为程序要往网上邻居上的一个目录拷文件，如\\server\pic$
怎么判断这个共享目录能不能写呢？

Answer 1

暂时查不到有关资料，只能暂时用下面方法，让大家PP:        if not createdir(picpath+'\tmp') then
        begin
            showmessage('不能创建目录'+picpath+'\tmp'+chr(13)+chr(10)+'或无该目录权限');
            exit;
        end
        else
        rmdir(picpath+'\tmp');