Диалог отключения сетевого диска
Falk0ner, вс, 06/07/2008 - 15:34.
Диалог отключения сетевого диска
{ **** UBPFD *********** by kladovka.net.ru ****
>> Открытие диалогового окна «Отключение сетевого диска»
Зависимости: Windows
Автор: Dimka Maslov, <a href="mailto:mainbox@endimus.ru">mainbox@endimus.ru</a>, 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;
>> Открытие диалогового окна «Отключение сетевого диска»
Зависимости: Windows
Автор: Dimka Maslov, <a href="mailto:mainbox@endimus.ru">mainbox@endimus.ru</a>, 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);
Отправить комментарий