//Пример открытия стандартного диалога 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) ThenRaise Excepcion.Create('unable to map drive')
//так же существуют другие константы для определения возникшей ошибки //ERROR_ACCESS_DENIED, ERROR_ALREADY_ASSIGNED, и т.д. end;
//так же можно и отключить сетевой ресурс... procedure TForm1.Button2Click(Sender: TObject);
beginif WNetCancelConnection2( 'S:',0,TRUE) <> NO_ERROR thenRaise Exception.create('Error disconnecting map drive');
//соответственно можно использовать другие константы для определения ошибки//ERROR_DEVICE_IN_USE, ERROR_NOT_CONNECTED, и т.д. end;
Статья Подключение сетевого диска раздела Интернет и Сети Сетевые диски может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.