Подключение к компьютеру по сети

← →
FEV (2003-11-25 09:34) [0]

Привет всем, в моей программе нужно выполнить подключение к компьютеру в сети, проблема такая:
Я знаю имя usera и password как мне программно вписать эти данные в окно которое выдается при подключении?
Буду очень благодарен за помощь!
Спасибо.

← →
alexdosh © (2003-11-25 10:28) [1]

телнетом пробовал?

← →
FEV (2003-11-25 10:44) [2]

Я незнаю что это, если не трудно объясни пожалуйста!

← →
Dean © (2003-11-25 10:47) [3]

DWORD WNetAddConnection2(

LPNETRESOURCE lpNetResource, // points to structure that specifies connection details
LPCTSTR lpPassword, // points to password string
LPCTSTR lpUsername, // points to user name string
DWORD dwFlags // set of bit flags that specify connection options
);

← →
FEV (2003-11-25 10:51) [4]

Извените а пример можно, плиз...

← →
Dean © (2003-11-25 10:55) [5]

> Извените а пример можно, плиз...

тут на форуме где-то пример был... я сам не юзал эту ф-цию, как-то руки не доходили.

← →
Dr. Well (2003-11-25 11:16) [6]

ЛОВИ ПРИМЕР, НО УЧТИ, ЕСЛИ У ТЕБЯ ОТКРЫТА ХОТЬ ОДНА ПАПКА С УДАЛЕННОГО КОМПА, К КОТОРОМУ ТЫ КОННЕКТИШЬСЯ, ВИНДА НЕ ДАСТ ТЕБЕ ЗАКОННЕКТИТЬСЯ ПОД ДРУГИМ ЛОГИНОМ.... В ЭТОМ МОЯ ПРОБЛЕМА.

function TMainForm.Connect2ND(aRemoteName, aUserName, aUserPassword : PChar) : String; var NetDrive: TNetResource; DriveLetter : String; begin Result := "!Not Connected!"; // Get Free Letter of Drive НА ФОРМЕ ЛЕЖИТ СКРЫТЫЙ ТDriveComboBox - ТАК ПРОЩЕ ОПРЕДЕЛИТЬ НЕЗАНЯТУЮ БУКВУ ДИСКА DriveLetter := Chr(Ord(DriveComboBox.Items.Strings[DriveComboBox.Items.Count-1][1])+1) + ":"; // Connect 2 Drive NetDrive.dwType := RESOURCETYPE_ANY; NetDrive.lpLocalName := PChar(DriveLetter); NetDrive.lpRemoteName := aRemoteName; NetDrive.lpProvider := ""; if WNetAddConnection2(NetDrive, aUserPassword, aUserName, 0) = No_Error then Result := DriveLetter; end; function DisconnectND(var Drive : String; ComputerName : String) : Boolean; begin Result := False; SetCurrentDir("C:\"); if Drive[2] = ":" then begin Result := WNetCancelConnection(PChar(Drive),False) = No_Error; if not Result then begin MessageDlg("Невозможно прервать соединение с сервером."+#13+"Сообщите администратору об ошибке.",mtError,[mbOk],0); //WinExec(PChar("NET SEND ServerNAME "Невозможно прервать соединение компьютера "+ComputerName+" с сервером. Бегом туда.""),SW_Hide); end else Drive := "!Not Connected!"; end; end;

← →
Dean © (2003-11-25 11:23) [7]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622334&n=20

← →
Dean © (2003-11-25 11:25) [8]

Не то!!! попутал братцы!

← →
FEV (2003-11-25 12:28) [9]

Почемуто не получается? и ни начто не жалуется
возьмем к примеру
user: 1
Password: 2
Реусурс находится в сетевой папке на диске "С:\my prog\"
Как мне можно выполнить подключение?

> [9] FEV (25.11.03 12:28)
Ресурс находится в сетевой папке " \\ИМЯ_КОМПА\ИМЯ_РЕСУРСА" !!!
Где он расположен физически тебя не должно волновать ...

Желаю успехов

telnet-это удаленная консоль. Пользовалсая когда-нибудь командой "cmd" в своих Виндах2К, дык вот: телнет выполняет команды на удаленном компьютере, но это возможно если: 1) там запущен сервис телнета; 2) ты знаешь пароль+имя пользователя, которому разрешено работать с телнетом.

Подключение к компьютеру по сети Найти похожие ветки