| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Tron ©   (2007-10-09 13:08:00) 

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

---

Tron   (2007-10-09 14:44:00) [1]

Спасибо, нашёл!
Только какие изменения нужно внести для сетевого принтера?

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;

---

clickmaker   (2007-10-09 13:24:00) [2]

WNetAddConnection2

---

й1   (2007-10-09 13:20:00) [3]

конечно

---

Наверх