add and delete a network connection

uNetUse.pas

function NetUseAdd(const RemoteName: string): string;
var
  NetResource: TNetResource;
  dwResult, dwBufSize, dwFlags: DWORD;
  hRes: DWORD;
  localName: array[0..1024] of Char;
begin
  dwFlags := CONNECT_REDIRECT;
  ZeroMemory(@NetResource, sizeof(TNetResource));
  with NetResource do begin
    dwType := RESOURCETYPE_DISK;
    lpLocalName := nil;
    lpRemoteName := PChar(RemoteName);
    lpProvider := nil;
  end;
  dwBufSize := Length(localName);
  hRes := WNetUseConnection(0, NetResource, nil, nil, dwFlags, localName, dwBufSize, dwResult);
  if hRes = NO_ERROR then
    result := localName
  else
    result := '';
end;

function NetUseDelete(const LocalName: string): Boolean;
var
  hRes: DWORD;
begin
  hRes := WNetCancelConnection2(PChar(LocalName), CONNECT_UPDATE_PROFILE, true);
  result := (hres = NO_ERROR);
end;