Подключение сетевого диска.

Автор: Eber Irigoyen

Если возникла необходимость, чтобы Ваше приложение самостоятельно подключало сетевой ресурс, то это можно сделать двумя способами: вызвать стандартный диалог подключения ресурса либо использоваться следующий код.

Совместимость: Delphi все версии

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

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;