我是用映象的办法了,代码都写出来了,用的API,请大家给我看看,不过他就是连不上去,
Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
Public Type NETRESOURCE
    dwScope As Long
    dwType As Long
    dwDisplayType As Long
    dwUsage As Long
    pLocalName As String
    pRemoteName As String
    pComment As Long
    pProvider As Long
End Type
Dim lpnet As NETRESOURCE
    lpnet.dwType = 0
    lpnet.pLocalName = "G:" '此盘符是对的,我的机器最后一个盘是F:我本来是用函数获得它的,现在我给大家看的是一个简单的,
    lpnet.pRemoteName = "\\des7\lhh share" '此为des7机器上的一个共享目录"lhh share"有空格的.
  
    If WNetAddConnection2(lpnet, "lhh", "", 1) <> 0 Then '对方是win98,no username
        MsgBox "网络连接错误"
        Exit Sub
    Else
        lstFile.Path = strLocalDriveLetter
        'MsgBox ("已经成功映射连接上服务器!")
      
    End If
说明:::
    首先谢谢大家给我的建议,分是在解决问题字后一定会给的,不过帮忙的朋友越多,每人的分就少了,所以请各位能尽快帮我解决这个问题,给您请安了.    
    1.lpnet.pLocalName = "G:" '此盘符是对的,我的机器最后一个盘是F:我本来是用函数获得它的,现在我给大家看的是一个简单的,
    2.lpnet.pRemoteName = "\\des7\lhh share" '此为des7机器上的一个共享目录"lhh share"有空格的.
    3.密码也是对的哦!
    

解决方案 »

  1.   

    to: lhh(西方失败) 
    我想在此请问各位如何从注册表中获取系统中安装的某软件的安装路径呀??谢谢!! 在这里有所有的安装路径
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths
      

  2.   

    to fishzone(阿愚)
    我现在要找的是别人用Delphi开发的InstallShield打包的软件,我在HKEY_CURRENT_USER\SOFTWARE下他的公司下看到了他的软件名和版本但没有安装路径,运行了他的应用程序了,但在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths 下找不到给应用程序,更不要说他的路径了!!
    各位帮帮我呀!!
      
      

  3.   

    lhh,我就是给你提建议的那个(什么盘符是否存在,路径是否有空格),最后解决了?!你或者使用WNetAddConnection也可以,不要用2。不过,前面这个函数在9X下面,密码会被忽略。
      

  4.   

    我曾经也碰倒过这种需要,但客户的服务器是NetWare,服务器提供了网络驱动器映射的功能,不止到你的服务器是不是NETWARE