//Пример открытия стандартного диалога
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;
|