測驗環境，DELPHI XE2版本，系統WIN10
建立程序
procedure TForm1.d(const driver, remote, pass, name: string);
var netsource:TNetResource;
begin
with netsource do
begin
dwType:=RESOURCETYPE_ANY;
lpLocalName:=PwideChar(driver);
lpRemoteName:=PWideChar(remote);
lpProvider:='';
end;
WNetAddConnection2(netsource,PWideChar(pass),PWideChar(name),CONNECT_UPDATE_PROFILE);
end;
呼叫程序
procedure TForm1.Button5Click(Sender: TObject);
begin
d('x:','\\172.16.0.20\pro,'123456','cd\10001') ;
end;
driver為映射驅動器盤符 ，remote為網路映射路徑，pass為密碼，name為域賬戶
運行之后，始終映射不出來，用DOS 的net use可以，但是現在要用這個函式來實作，有大神給點建議。
uj5u.com熱心網友回復：
怎么沒人回啊uj5u.com熱心網友回復：
首先，如果你已經有相同映射連接，是不允許再次連接的，你最好試一下將所有映射全部清空后再次測驗以下代碼：
procedure TForm1.d(const FDriver, FRemote, FPass, FUserName: string);
var
FNetSource: TNetResource;
begin
FillChar(FNetSource, SizeOf(FNetSource), 0);
with FNetSource do
begin
dwScope := RESOURCE_REMEMBERED or RESOURCETYPE_DISK;
dwType := RESOURCETYPE_ANY;
lpLocalName := PChar(FDriver);
lpRemoteName := PChar(FRemote);
lpProvider := nil;
end;
if WNetAddConnection2(FNetSource, PChar(FPass), PChar(FUserName),
CONNECT_UPDATE_PROFILE) <> 0 then
ShowMessage(SysErrorMessage(GetLastError));
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/31012.html
下一篇：想提取一個app生成二維碼