Вызов диалога отключения сетевого диска

Delphi , Программа и Интерфейс , Диалоги и Фреймы

Автор: Dimka Maslov
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Открытие диалогового окна «Отключение сетевого диска»

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

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

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

Статья Вызов диалога отключения сетевого диска раздела Программа и Интерфейс Диалоги и Фреймы может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2011-04-08 21:32:43 :: re:Вызов диалога отключения сетевого диска

пользователь: Boris.

При запуске этой команды отключатся все диски или нет? Как указать букву диска для отключения?

:: 2011-04-12 22:23:56 :: re:Вызов диалога отключения сетевого диска

пользователь: kan.

Эта функция должна вызвать диалог для отключения диска, в котором можно выбрать диск.

:: Главная :: Диалоги и Фреймы ::