Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Регистрация на сайте занимает 40 секунд, а пользу приносит годами.

Дополнительные функции

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Вопросы: 0
Ответы: 0
Мини-форумы: 0

Онлайн на сайте: 3 (3404)
Онлайн в IRC: 2 (17)
Последние новости:
8 июля 2023
Последний вопрос:
30 августа 2025, 19:29
Последний ответ:
29 марта 2018, 23:32

Лучшие эксперты

Подробнее »

Вопрос # 3 195

Раздел: Delphi » Работа с сетями и протоколами

/ вопрос открыт /

Здравствуйте, уважаемые эксперты!
При создании dial-up подключения в windows7, по умолчанию включена служба "Общего доступа к файлам и принтерам". как мне отключить её?

Приложение:

procedure
var
entry: TRasEntryW;
begin
FillChar(entry, SizeOf(TRasEntryW), 0);
entry.dwSize := SizeOf(TRasEntryW);
StrPCopy(entry.szLocalPhoneNumber, '*99#');
StrPCopy(entry.szDeviceName, 'ZTE Proprietary USB Modem');
StrPCopy(entry.szDeviceType, 'modem');
RasSetEntryPropertiesW(nil, PChar('ModemZTE'),@entry, SizeOf(TRasEntryW), nil, 0);
end;