1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var  
  ner : TNetResource;  
  res : dword;  
begin  
  ner.dwType       := RESOURCETYPE_DISK;  
  ner.lpLocalName  := 'Z:';  
  ner.lpRemoteName := '\\Rechner\Freigabename';  
  ner.lpProvider   := nil;  

 
  res              := WNetAddConnection2(ner,  
    'SuperGeheimesPwd',  
    'OttoNormalUser',  
    0);  

 
  if(res = NO_ERROR) then ShowMessage('Super, klappt ja!')  
    else ShowMessage(Format('Fehler %d',[res]));  
end;