Открытие общего доступа к папке. диску.

<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD>Quote:<HR></TD></TR><TR><TD><FONT SIZE=-1><BLOCKQUOTE>
On 2001-07-27 22:24, Shadow wrote:
Кто-нибудь подскажите как можно программно открыть папку для общего доступа или диск.
</BLOCKQUOTE></FONT></TD></TR><TR><TD><HR></TD></TR></TABLE>

Если ты имеешь ввиду открыть окошко explorer'a с содержимым папки, то подсказать могу:)

Используй функцию ShellExecute. Воt её описание из Windows SDK:

HINSTANCE ShellExecute(
HWND hwnd, // handle to parent window
LPCTSTR lpOperation, // pointer to string that specifies operation to perform
LPCTSTR lpFile, // pointer to filename or folder name string
LPCTSTR lpParameters, // pointer to string that specifies executable-file parameters
LPCTSTR lpDirectory, // pointer to string that specifies default directory
INT nShowCmd // whether file is shown when opened
);


А вот так ей можно воспользоваться:

ShellExecute(application.handle, Pchar('open'), Pchar('put k katalogu'), nil, nil, SW_SHOWNORMAL);

это открое окно с содержимым папки. Если хочешь открыть окно в виде windows explorer, вместо 'open' напиши 'explore'...

еще не забудь в uses написать ShellApi

Нет, я имел ввиду открыть общий доступ к папке через сетевое окружение.

[ Это Сообщение было отредактировано Shadow в 2001-07-31 1138 ]

Тут насколько я понимаю нужно пользоватся интерфейсом NetBIOS. Я тоже сейчас подхожу к проблеме программирования в сети. У меня стоит Delphi 3 C/SS в нем соответсвующих классов нет. Хотя в Windows есть программа разделения ресурсов. Может можно через нее.

<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD>Quote<HR></TD></TR><TR><TD><FONT SIZE=-1><BLOCKQUOTE>
On 2001-07-27 2224, Shadow wrote
Кто-нибудь подскажите как можно программно открыть папку для общего доступа или диск.
</BLOCKQUOTE></FONT></TD></TR><TR><TD><HR></TD></TR></TABLE>

здесь
http//www.sources.ru/delphi/delphi_map_network_drive.shtml