Показать сообщение отдельно
  #8  
Старый 28.05.2012, 14:59
292929 292929 вне форума
Прохожий
 
Регистрация: 15.05.2012
Сообщения: 5
Репутация: 10
По умолчанию

Решено! Диск прописывается в реестре, появляется после перезагрузки.
Подключается принудительно (Даже если удаленного компьютера нет в сети)
Код:
procedure TForm1.RegNetD(Sender: TObject);
var
R: TRegistry;
begin
R:=TRegIniFile.Create('');
R.RootKey:=HKEY_CURRENT_USER;
R.OpenKey('\Network\M', true);  //'M' - имя диска
R.WriteInteger('ConnectionType', 1);
R.WriteInteger('DeferFlags', 4);
R.WriteString('ProviderName', 'Microsoft Windows Network');
R.WriteInteger('ProviderType', 131072);
R.WriteString('RemotePath', '\\255.255.255.255\Folder'); //Адрес
R.WriteInteger('UserName', 0);
R.Free;
end;

----------
Нет, не работает. Добавляет диск администратору.
Ответить с цитированием