Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

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

1.5K
28 июля 2001 года
Shadow
2 / / 20.07.2000
Кто-нибудь подскажите как можно программно открыть папку для общего доступа или диск.
Аноним
<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
1.5K
31 июля 2001 года
Shadow
2 / / 20.07.2000
Нет, я имел ввиду открыть общий доступ к папке через сетевое окружение.

[ Это Сообщение было отредактировано Shadow в 2001-07-31 1138 ]
449
17 августа 2001 года
Fantasist
124 / / 20.06.2000
Тут насколько я понимаю нужно пользоватся интерфейсом 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

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог