Диалог подключения сетевого диска |
Previous Top Next |
Code: |
procedure TStartForm.NetBtnClick(Sender: TObject); var OldDrives: TStringList; i: Integer; begin OldDrives := TStringList.Create; // Запоминаем список дисков OldDrives.Assign(Drivebox.Items); // Показываем диалог подключения if WNetConnectionDialog(Handle, RESOURCETYPE_DISK) = NO_ERROR then begin // Обновляем список дисков DriveBox.TextCase := tcLowerCase; for i := 0 to DriveBox.Items.Count - 1 do begin // Ищем свободный логический диск if Olddrives.IndexOf(Drivebox.Items[i]) = -1 then begin // Показываем первый найденный логический диск DriveBox.ItemIndex := i; // Каскадируем обновление на список подключенных каталогов и др. DriveBox.Drive := DriveBox.Text[1]; end; end; DriveBox.SetFocus; end; OldDrives.Free; end; |
©Drkb::01213
Взято с http://delphiworld.narod.ru
Code: |
{ **** UBPFD *********** by kladovka.net.ru **** >> Открытие диалогового окна «Подключение сетевого диска»
Зависимости: Windows Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург Copyright: Dimka Maslov Дата: 21 мая 2002 г. ********************************************** }
function MapNetworkDrive(Wnd: HWND = 0): DWORD; begin if Wnd = 0 then Wnd:=FindWindow('Shell_TrayWnd',''); Result:=WNetConnectionDialog(Wnd, RESOURCETYPE_DISK); end; |
Пример использования:
Code: |
MapNetworkDrive(Application.Handle); |
©Drkb::01214