Советы по Delphi


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


Вы можете воспользоваться вызовом API WNetAddConnection2. Прототип вызова API расположен в Windows.Pas:

    function WNetAddConnection2W(var lpNetResource: TNetResourceW; lpPassword, lpUserName: PWideChar; dwFlags: DWORD): DWORD; stdcall;

Перед тем, как сделать вызов, вам понадобиться заполнить структуру lpNetResource минимальным количеством параметров, как это показано в примере ниже. Вы передаете в эту структуру, начиная с первого параметра, пароль, имя пользователя, и флаг, указывающий на необходимость восстановления подключения сетевого диска при каждой регистрации машины в сети. Для получения более подробной информации об этой функции, обратитесь к справке Window's Programmers Reference (найдите функцию в Windows.pas, разместите на ней курсор, и нажмите клавишу F1 для вызова справки по этой функции).

    procedure TForm1.Button1Click(Sender: TObject);
var
NRW: TNetResource; begin
with
NRW do begin dwType := RESOURCETYPE_ANY; lpLocalName := 'X:'; // подключаемся к диску с этой буквой lpRemoteName := '\\MyServer\MyDirectory'; // Необходимо заполнить. В случае пустой строки // используется значение lpRemoteName. lpProvider := ''; end; WNetAddConnection2(NRW, 'MyPassword', 'MyUserName', CONNECT_UPDATE_PROFILE); end;

[001988]




Начало  Назад  Вперед