Delphi 2
Подключение сетевого диска в Delphi
Данный код показывает как создавать кнопку 'Сеть', вызывающую диалог
подключения сетевого диска и указывающего логический диск для подключаемого сетевого ресурса.
Этот код создавался на Delphi 2, но и в Delphi 1 данная процедура не сильно отличается от исходной.
Создайте кнопку с именем NetBtn и drive combo box (выпадающий список с дисками) с именем DriveBox. Затем напишите следующий обработчик события OnClick кнопки:
procedure TStartForm.NetBtnClick(Sender: TObject); var OldDrives: TStringList;
i: Integer;
beginOldDrives := 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;
|
Ну и не забудьте также добавить WinProcs и WinTypes в список используемых модулей.
Самое большое неудобство заключается в том, что у DriveComboBox отсутствует функция обновления. Меняя значение свойства TextCase, мы заставляем компонент обновляться.
Авторские права © 1997 Josef Garvi [000202]