⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 dpi33.htm

📁 delphi 教程 Delphi 6 常见的大部分函数的使用方法及使用例子
💻 HTM
字号:
🔍 
<html>
<head>
<title>DELPHI中映射网络驱动器</title>
 
 
 
 
 
<meta content="text/html; charset=gb2312" http-equiv=Content-Type>
 
 
</head>
<p align="center"><script src="../../1.js"></script></a>

<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center> 
  <table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
    <tbody> 
    <tr> 
       
    </tr>
    </tbody> 
  </table>
  <table border=0 bordercolordark=#66aaff bordercolorlight=#66aaff cellpadding=0 
cellspacing=0 width=680 align="center" height="128">
    <tbody> 
    <tr> 
      <td bgcolor=#F9D23C height=14> 
        <div align=center class=H1> <span style="LINE-HEIGHT: 18px"><big>DELPHI中映射网络驱动器</big></span> 
          </font></b></font></b></font></div>
      </td>
    </tr>
    <tr valign=top> 
      <td class=H1 height=236> 
        <p align="center"><span style="LINE-HEIGHT: 18px"></span></p>
        <p><span style="FONT-SIZE: 9pt; LINE-HEIGHT: 18px">&nbsp;&nbsp;&nbsp; 
          当前，DELPHI的应用愈加广泛，而网络又是未来计算机的发展趋势。本文介绍一个在DELPHI中如何实现网络驱动器映射的小技巧，源程序如下：<br>
          &nbsp;&nbsp;&nbsp; MAP－NETWORK－DRIVE.PAS<br>
          &nbsp;&nbsp;&nbsp; procedure TForm1.Button1Click(Sender:Tobject);<br>
          &nbsp;&nbsp;&nbsp; var<br>
          &nbsp;&nbsp;&nbsp; NR:TNetResource;<br>
          &nbsp;&nbsp;&nbsp; begin<br>
          &nbsp;&nbsp;&nbsp; with NR do<br>
          &nbsp;&nbsp;&nbsp; begin<br>
          &nbsp;&nbsp;&nbsp; dwType:=RESOURCETYPE__ANY;<br>
          &nbsp;&nbsp;&nbsp; lpLocalName:=`X:'; //map to this driver letter<br>
          &nbsp;&nbsp;&nbsp; lpRemoteName:=`//MyServer\MyDirectory';<br>
          &nbsp;&nbsp;&nbsp; //Must be filled in.<br>
          &nbsp;&nbsp;&nbsp; lpProvider:=&quot;;<br>
          &nbsp;&nbsp;&nbsp; end;<br>
          &nbsp;&nbsp;&nbsp; WNetAddConnection2(NR,`MyPassword',`MyUername',<br>
          &nbsp;&nbsp;&nbsp; CONNECT__UPDATE__PROFILE)；<br>
          &nbsp;&nbsp;&nbsp; end;<br>
          &nbsp;&nbsp;&nbsp; (郑州市经七路22号 瓮建 450002)</span> <b></b>
        <p align="center"><font 
      color=#ffa000><b><br>
          </b><b>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 
      </td>
    </tr>
    </tbody> 
  </table>
</div>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -