Диалог отключения сетевого диска

Материал из DRKB

Диалог отключения сетевого диска[править | править код]

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

Зависимости: Windows

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);


ID: 01215