发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: .编程实现影射网络驱动器
发信站: 哈工大紫丁香 (Mon Sep  4 16:07:50 2000), 转信

MAPNETWORKDRIVE.PAS


procedure TForm1.Button1Click(Sender: TObject);
var
  NRW: TNetResource;
begin
  with NRW do
  begin
    dwType := RESOURCETYPE_ANY;
    lpLocalName := 'X:'; // map to this driver letter
    lpRemoteName := '\\MyServer\MyDirectory';
    // 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;

--
※ 修改:．haojs 于 Sep  4 16:05:28 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: bbs.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: haojs.bbs@bbs.whnet.]