在DELPHI中映射网络驱动器
【打印文章】
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 := '\\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;
首先要填一个 lpNetResource structure，然后 password,user name, 和一个标志表明是否这个映射每次登录时都要还原。详情见帮助。
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;
本栏文章均来自于互联网，版权归原作者和各发布网站所有，本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】