Диалог отключения сетевого диска |
Previous Top Next |
Code: |
{ **** UBPFD *********** by kladovka.net.ru **** >> Открытие диалогового окна «Отключение сетевого диска»
Зависимости: 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; |
Пример использования:
Code: |
DisconnectNetworkDrive(Application.Handle); |
©Drkb::01215