dpi33.htm

来自「delphi 教程 Delphi 6 常见的大部分函数的使用方法及使用例子」· HTM 代码 · 共 66 行

HTM
66 行
字号 
<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>

dpi33.htm - 源码说明

本页面展示了「delphi 教程 Delphi 6 常见的大部分函数的使用方法及使用例子」中的 dpi33.htm 源码文件，采用 HTM 编程语言编写，共 66 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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