var

 NetSource : TNetResource;  file://连接服务器结构

 dwResult:DWORD;        file://连接文件服务器的返回值

procedure ConnectServer;

begin

  g_bFlag:=True;

  NetSource.dwType:= RESOURCETYPE_ANY;

  NetSource.lpLocalName:='';

  NetSource.lpRemoteName:=PAnsiChar('\\'+g_sServerIp);

  NetSource.lpProvider:='';

  dwResult:=WnetAddConnection2(NetSource,PAnsiChar(g_sServerPassWord),PAnsiChar(g_sServerUserName),CONNECT_UPDATE_PROFILE);

  if dwResult<>0 then

  begin

    MessageDlg('连接文件服务器失败!'#13#10'请重新设置!',mtWarning,[mbOk],0);

    g_bFlag:=False;

  end;

end;

procedure DisconnectServer;

begin

  if g_bFlag then

    WNetCancelConnection2(PAnsiChar('\\'+g_sServerIp), CONNECT_UPDATE_PROFILE, True);

end;