如何判断局域网 \\ip地址\共享目录 目录是否存在
\\计算机名\共享目录可以
如果共享目录需要 用户名 共享密码 该如何写代码 谢谢!
\\计算机名\共享目录可以
如果共享目录需要 用户名 共享密码 该如何写代码 谢谢!
解决方案 »
- 用Gettickcount函数取值相减的问题?
- 帮忙呀
- 请问各位大侠,怎么把outlook通讯录或foxmail中同学录导入到自己的数据库中
- 象MP3播放器那样一边播放一边显示流逝的时间是怎么做的?
- 一小问题,大家看看,见者有份
- 大家好,请问如何知道当前ADODataSet是否有UpdateStatus为usDeleted的记录?
- 对话框的确定,取消问题?
- outlook新建账号和邮件在本地的记录?(用程序访问)(高手请帮忙)
- 挑战自己 不知道有没有人能解决这个问题啊 急用
- 怎样获得本机的IP地址
- 如何利用table或者query删除1条/多条数据?
- 怎样判断一个TSringlist 变量没被Create()?
remotename: 共享路径 如 :\\server\share
username : 用户名
password: 密码
function connectserver(localname: string; remotename: string; username: string; password: string): boolean;
var
NetSource: TNetResource; Errinfo: longint;
begin
with NetSource do begin
dwType := RESOURCETYPE_ANY; //RESOURCETYPE_DISK
lpLocalName := pchar(localname);
// 将远程资源映射到此驱动器
lpRemoteName := pchar(remotename);
// 远程网络资源
lpProvider := '';
// 必须赋值,如为空则使用lpRemoteName 的值。
end;
ErrInfo := WnetAddConnection2(NetSource, pchar(password), pchar(username), 0);
result := (ErrInfo = NO_ERROR);
end;
利用映射的方法,失败则表示不能连接或者不存在该共享资源。