Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Диалоговые окна



Вернуться к списку функций
 Открытие диалогового окна «Подключение сетевого диска»

 Прислал: Dimka Maslov (Санкт-Петербург) ( 21 мая 2002 г. )
©  Dimka Maslov
 Зависимости:
Windows

 Ограничения:
Проверено в D4-D6

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Открытие диалогового окна «Подключение сетевого диска»

Зависимости: Windows
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        21 мая 2002 г.
***************************************************************** }

function MapNetworkDrive(Wnd: HWND = 0): DWORD;
begin
 if Wnd = 0 then Wnd:=FindWindow('Shell_TrayWnd',''); Result:=WNetConnectionDialog(Wnd, RESOURCETYPE_DISK);
end;

 Пример использования:
MapNetworkDrive(Application.Handle);


Вернуться к списку функций

Наверх ▲