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

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Удаление расшаренных ресурсов

Автор: five 30.5.2005, 14:10

Подскажите, желательно с примером, как правильно удалить расшаренные папки/диски ?

Пробовал через реестр:

Код


{$APPTYPE CONSOLE}
uses windows,registry,messages;
var
  Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.DeleteKey('SYSTEM\CurrentControlSet\Services\lanmanserver\Shares\');
  Reg.Free;
  SendMessage(HWND_BROADCAST,WM_WININICHANGE,0,LongInt(PChar('RegistrySection')));
end.

Получается, но винда почему-то помнит расшаренные папки/диски до перезагрузки, а мне нужно удалить их в текущем сеансе, т.е. без перезагрузки винды.

Спасибо.

Автор: Snowy 30.5.2005, 17:12

Просто запусти
cmd /c net share имя_шары /DELETE

Автор: Rouse_ 31.5.2005, 08:37

NetShareDel, ну и вот тут почитай: http://www.delphimaster.ru/articles/netmon/#closeres