Как вызвать диалог подключения сетевого диска
Как вызвать диалог подключения сетевого диска
Как вызвать диалог подключения сетевого диска procedure TForm1.Button1Click(Sender: TObject); var OldDrives: TStringList; i: Integer; begin OldDrives := TStringList.Create; // Запоминаем список дисков OldDrives.Assign(DriveComboBox1.Items); // Показываем диалог подключения if WNetConnectionDialog(Handle, RESOURCETYPE_DISK) = NO_ERROR then begin // Обновляем список дисков DriveComboBox1.TextCase := tcLowerCase; for i := 0 to DriveComboBox1.Items.Count - 1 do begin // Ищем свободный логический диск if Olddrives.IndexOf(DriveComboBox1.Items[i]) = -1 then begin // Показываем первый найденный логический диск DriveComboBox1.ItemIndex := i; // Каскадируем обновление на список подключенных каталогов и др. DriveComboBox1.Drive := DriveComboBox1.Text[1]; end; end; DriveComboBox1.SetFocus; end; OldDrives.Free; end;
