Скачать: CL | DM;

Восстановить подключение к сетевому диску   Найти похожие ветки 

← →
darova   (2008-08-12 17:02) [0]

Если машина ребутится, то смонтированный сетевой диск отрубается.
Т.е. например, DirectoryExist перестает работать. Но если войти на него через мой компьютер вручную, то соединение опять восстановится и DirectoryExist работать будет. В этом и вопрос, как после проверки, восстановить подключение к сетевому диску?

---

← →
Ball   (2008-08-12 17:18) [1]

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

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

procedure TForm1.Button1Click(Sender: TObject);  
begin  
 WNetConnectionDialog(Handle,RESOURCETYPE_DISK)  
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;

(откуда то)

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c