1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

      with netresource do
      begin
        dwType       := RESOURCETYPE_DISK;
        lplocalname  := 'B:';
        lpremotename := '\\sqlsrv\srvdsk\plotter';
        lpProvider   := nil;
      end;

      dwflags := CONNECT_UPDATE_PROFILE;
      result  := WNetAddConnection2(netresource,'','',0);
      if result = NO_ERROR then
          showmessage('OK')
      else
          showmessage(Format('Fehler %d',[result]));