//Пример открытия стандартного диалога 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
 WNetConnectionDialog(Handle,RESOURCETYPE_DISK) 
end; 

//Так же можно подключить и принтер 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
 WNetConnectionDialog(Handle,RESOURCETYPE_PRINT) 
end; 

//либо можно использовать следующий код 
procedure TForm1.Button2Click(Sender: TObject); 
var 
NetResource: TNetResource; 
begin 
 { заполняем структуру TNetResource } 
 NetResource.dwType := RESOURCETYPE_DISK; 
 NetResource.lpLocalName := 'S:'; 
 NetResource.lpRemoteName := '\\myserver\public'; 
 NetResource.lpProvider := ''; 

 { подключаем сетевой ресурс, используя структуру TNetResource } 
 If ( WNetAddConnection2(NetResource, 
 '', {Password (if needed) or empty} 
 '', {User name (if needed) or empty} 
 CONNECT_UPDATE_PROFILE)<>NO_ERROR) Then 
 Raise Excepcion.Create('unable to map drive') 
 //так же существуют другие константы для определения возникшей ошибки 
 //ERROR_ACCESS_DENIED, ERROR_ALREADY_ASSIGNED, и т.д. 
end; 

//так же можно и отключить сетевой ресурс... 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
 if WNetCancelConnection2( 'S:',0,TRUE) <> NO_ERROR then 
 Raise Exception.create('Error disconnecting map drive'); 
 //соответственно можно использовать другие константы для определения ошибки
 //ERROR_DEVICE_IN_USE, ERROR_NOT_CONNECTED, и т.д. 
end;