Советы по Delphi

         

Подключение сетевого диска в Delphi


Данный код показывает как создавать кнопку 'Сеть', вызывающую диалог подключения сетевого диска и указывающего логический диск для подключаемого сетевого ресурса. Этот код создавался на Delphi 2, но и в Delphi 1 данная процедура не сильно отличается от исходной.

Создайте кнопку с именем NetBtn и drive combo box (выпадающий список с дисками) с именем DriveBox. Затем напишите следующий обработчик события OnClick кнопки:

    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;

Ну и не забудьте также добавить WinProcs и WinTypes в список используемых модулей.

Самое большое неудобство заключается в том, что у DriveComboBox отсутствует функция обновления. Меняя значение свойства TextCase, мы заставляем компонент обновляться.

Авторские права © 1997 Josef Garvi [000202]



Содержание раздела