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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: 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);

{/codecitation}

Добавить комментарий