Форум программистов [Powered by Invision Power Board]

Код

// Открывает доступ к сетевому ресурсу 
Function Access_Resourse(PathResurse, Username, Password: String): Boolean; 
var ShareName: string; 
    Res: Integer; 
    lpNetResource: TNetResource; 
Const r = ERROR_SESSION_CREDENTIAL_CONFLICT; 
begin 
  ShareName := ExcludeTrailingPathDelimiter(PathResurse); 

  ZeroMemory(@lpNetResource, SizeOf(lpNetResource)); //заполним нолями значение указателя 

  lpNetResource.dwType := RESOURCETYPE_ANY; 
  lpNetResource.lpLocalName := nil; 
  lpNetResource.lpProvider := nil; 
  lpNetResource.lpRemoteName := PChar(ShareName); 

  res := WNetAddConnection2(lpNetResource, PChar(Password), PChar(UserName), 0); 
  // Если соединение уже установлено другими приложениями 
  // то открываем доступ без использования имени и пароля 
  if res = ERROR_SESSION_CREDENTIAL_CONFLICT then 
     res := WNetAddConnection2(lpNetResource, Nil, Nil, 0); 
  if Res = 0 then 
     Result := True 
  else 
     Begin 
     Result := False; 
     WriteMessageLogFile('Ошибка открытия сетевого ресурса - ' + PathResurse); 
     End; 
End;