Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.28;
Скачать: CL | DM;

Вниз

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

 
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;



Страницы: 1 вся ветка

Текущий архив: 2007.10.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
15-1191481433
boriskb
2007-10-04 11:03
2007.10.28
Не новая тема. Напоминалка


2-1191463004
Lex_!
2007-10-04 05:56
2007.10.28
Массивы объектов...


2-1191763245
bagos
2007-10-07 17:20
2007.10.28
окна


15-1190718469
passlight
2007-09-25 15:07
2007.10.28
Завораживающий боян :-)


2-1191402871
Pacific
2007-10-03 13:14
2007.10.28
WebBrowers1