Как подключить сетевой принтер?

← →
Tron (2007-10-09 13:08) [0]

Существует ли код, функция, компонент... чтобы программно, с помощью Delphi подключить сетевой принтер?

← →
й1 (2007-10-09 13:20) [1]

конечно

← →
clickmaker © (2007-10-09 13:24) [2]

WNetAddConnection2

← →
Tron (2007-10-09 14:44) [3]

Спасибо, нашёл!
Только какие изменения нужно внести для сетевого принтера?
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;

Как подключить сетевой принтер? Найти похожие ветки