虫虫技术在线--技术决定出路

当前位置: 首页 > 编程 > Delphi >

在Delphi中映射网络驱动器

时间:2010-02-19 14:57来源:未知 作者:admin 点击:
function WNetAddConnection2W(var lpNetResource: TNetResourceW;lpPassword, lpUserName: PWideChar; dwFlags: DWORD): DWORD; stdcall; 首先要填一个 lpNetResource structure,然后 password,user name, 和一个标志表明是否这个映射每

  function WNetAddConnection2W(var lpNetResource: TNetResourceW;lpPassword, lpUserName: PWideChar; dwFlags: DWORD): DWORD; stdcall;

  首先要填一个 lpNetResource structure,然后 password,user name, 和一个标志表明是否这个映射每次登录时都要还原。详情见帮助。

  var 

  NRW: TNetResource;

  begin 

  with NRW do begin dwType := RESOURCETYPE_ANY;

  lpLocalName := 'X:'; // map to this driver letter

  lpRemoteName := 'MyServerMyDirectory';

  // Must be filled in. If an empty string is used,

  // it will use the lpRemoteName. lpProvider := ''; end;

  WNetAddConnection2(NRW, 'MyPassword', 'MyUserName', CONNECT_UPDATE_PROFILE);

  end;

(责任编辑:admin)
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片
栏目列表
推荐内容