открыть общий доступ к папке. - Помощь студентам

Chudo4258 · 06.06.2010, 14:23

Как спомощью делфи 7 можно открыть общий доступ к папке, т.е. должно быть воть так (что бы стояли обе галочки, т.е. разрешение на изминение по сети.)
06.06.jpg

Chudo4258 · 06.06.2010, 14:52

Люди, осталось решить последний вопрос и прога будет готова. Помогите.
Или это не так просто?

Vikenty · 06.06.2010, 14:54

В ключе реестра: HKEY_LOCAL_MACHINE\SYSTEM\ControlSe t001\Services\lanmanserver\Shares

Chudo4258 · 06.06.2010, 14:59

Цитата:

Сообщение от Vikenty

В ключе реестра: HKEY_LOCAL_MACHINE\SYSTEM\ControlSe t001\Services\lanmanserver\Shares

а можно поподробней, как это в делфи сделать?
с реестром в делфи никогда не работал.

Chudo4258 · 06.06.2010, 18:16

Код:

shellexecute(0,nil,'net','share C="C:\Папка"',nil,SW_HIDE);

вот нашел кое-что, но выдает ошибку, наверно модуль какой-то надо подключить, КАКОЙ???

Chudo4258 · 06.06.2010, 18:30

разобрался, надо модуль ShellAPI;

а теперь как закрять с помощью этой процедуры?

p51x · 06.06.2010, 18:59

Запустите в консоле net share help. Он и раскажет как и когда его запускать.

54rus · 18.02.2012, 12:57

а каким способом это под семёркой проделать?
в списке ресурсов папка появляется, но открываться она не хочет

06.06.2010, 14:23	#1
Chudo4258 Форумчанин Регистрация: 19.02.2009 Сообщений: 622	открыть/закрыть общий доступ к папке. Как спомощью делфи 7 можно открыть общий доступ к папке, т.е. должно быть воть так (что бы стояли обе галочки, т.е. разрешение на изминение по сети.) 06.06.jpg Жми на весы!!! Последний раз редактировалось Chudo4258; 06.06.2010 в 20:57.

06.06.2010, 14:52	#2
Chudo4258 Форумчанин Регистрация: 19.02.2009 Сообщений: 622	Люди, осталось решить последний вопрос и прога будет готова. Помогите. Или это не так просто? Жми на весы!!!

06.06.2010, 18:16	#5
Chudo4258 Форумчанин Регистрация: 19.02.2009 Сообщений: 622	Код: `shellexecute(0,nil,'net','share C="C:\Папка"',nil,SW_HIDE);` вот нашел кое-что, но выдает ошибку, наверно модуль какой-то надо подключить, КАКОЙ??? Жми на весы!!!

06.06.2010, 18:30	#6
Chudo4258 Форумчанин Регистрация: 19.02.2009 Сообщений: 622	разобрался, надо модуль ShellAPI; а теперь как закрять с помощью этой процедуры? Жми на весы!!!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Общий доступ и работа с защищенным листом.	zakv	Microsoft Office Excel	0	22.10.2009 09:18
Общий доступ к защищенному листу	zakv	Microsoft Office Excel	0	16.10.2009 10:34
Общий доступ к проекту	DiamondCoder	Софт	4	11.03.2009 13:49
Общий доступ к файлу с макросам в Эксель	grenles	Microsoft Office Excel	11	30.06.2008 16:38
Общий доступ в интернет	HAMMAN	Свободное общение	1	06.08.2007 20:41

06.06.2010, 14:54	#3
Vikenty Заслуженный флудер Участник клуба Регистрация: 31.03.2010 Сообщений: 1,473	В ключе реестра: HKEY_LOCAL_MACHINE\SYSTEM\ControlSe t001\Services\lanmanserver\Shares

06.06.2010, 18:59	#7
p51x Старожил Регистрация: 15.02.2010 Сообщений: 15,830	Запустите в консоле net share help. Он и раскажет как и когда его запускать.

18.02.2012, 12:57	#8
54rus Пользователь Регистрация: 21.07.2009 Сообщений: 41	а каким способом это под семёркой проделать? в списке ресурсов папка появляется, но открываться она не хочет