Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Mapping network drives with Delphi

Title: Mapping network drives with Delphi Question: How can I mapp a network drive using Delphi Answer: function NetUse(LokaleRessource,RemoteRessource: String) : Integer; { This routine allows you to connect a network drive. Example: NetUse(U:,\\GENTKBF1\SYS connects the local drive u: with the network volume SYS from server \\GENTKBF1 Possible returne values are: Value Meaning ERROR_ACCESS_DENIED Access is denied. ERROR_ALREADY_ASSIGNED The device specified in the lpLocalName parameter is already connected. ERROR_BAD_DEV_TYPE The device type and the resource type do not match. ERROR_BAD_DEVICE The value specified in lpLocalName is invalid. ERROR_BAD_NET_NAME The value specified in the lpRemoteName parameter is not valid or cannot be located. ERROR_BAD_PROFILE The user profile is in an incorrect format. ERROR_CANNOT_OPEN_PROFILE The system is unable to open the user profile to process persistent connections. ERROR_DEVICE_ALREADY_REMEMBERED An entry for the device specified in lpLocalName is already in the user profile. ERROR_EXTENDED_ERROR A network-specific error occurred. To get a description of the error, use the WNetGetLastError function. ERROR_INVALID_PASSWORD The specified password is invalid. ERROR_NO_NET_OR_BAD_PATH The operation cannot be performed because either a network component is not started or the specified name cannot be used. ERROR_NO_NETWORK The network is not present. } begin Result:= WNetAddConnection(PChar(RemoteRessource),Nil,PChar(LokaleRessource)); end; function NetUseDelete(LokaleRessource: String) : Integer; { This function coses an existing networc connection. Example: the function call NetUseDelete('O:') cancels the connection from drive O: to the actually used network recource. Possible returne values are: Value Meaning ERROR_BAD_PROFILE The user profile is in an incorrect format. ERROR_CANNOT_OPEN_PROFILE The system is unable to open the user profile to process persistent connections. ERROR_DEVICE_IN_USE The device is in use by an active process and cannot be disconnected. ERROR_EXTENDED_ERROR A network-specific error occurred. To get a description of the error, use the WNetGetLastError function. ERROR_NOT_CONNECTED The name specified by the lpName parameter is not a redirected device, or the system is not currently connected to the device specified by the parameter. ERROR_OPEN_FILES There are open files, and the fForce parameter is FALSE } begin Result:= WNetCancelConnection(PChar(LokaleRessource),True); end;