-
Как из своей программы присоединиться к файл серверу (Windows 2003) под другим именем, для копирования файлов на сервер и с сервера?
-
> kkk3632 © (10.08.09 14:22)
msdn: WNetAddConnection2, WNetCancelConnection2.
-- Regards, LVT.
-
//==================================== Это ответ ОС
Multiple connections to a server or shared resource by the same user, using more than one user name, are not allowed. Disconnect all previous connections to the server or shared resource and try again.
ниже то что я у нее просил.
//==================================== lpszUsername, lpszDomain, lpszPassword, lpLocalName, lpRemoteName: array[Byte] of Char;
procedure StringToStr (astr: String; aBuf: PChar); var i: Integer; Begin
For i := 0 To Length(aStr) - 1 Do Begin aBuf [i] := aStr[i+1]; End; aBuf [Length(aStr)] := Chr (0); End; Begin StringToStr ('SQLSUAdmin', lpszUsername); StringToStr ('EMSS', lpszDomain); StringToStr ('*******', lpszPassword);
StringToStr ('H:', lpLocalName); StringToStr ('\\Backserv\OKIS', lpRemoteName);
lpNetResource.dwScope := 0; lpNetResource.dwDisplayType := 0; lpNetResource.dwUsage := 0; lpNetResource.dwType := RESOURCETYPE_ANY; lpNetResource.lpLocalName := lpLocalName; lpNetResource.lpRemoteName := lpRemoteName; lpNetResource.lpProvider := nil; mLastError := WNetAddConnection2 (lpNetResource, lpszPassword, lpszUserName, CONNECT_UPDATE_PROFILE ); //====================================
-
Он же тебе человеческим голосом говорит
Disconnect all previous connections to the server or shared resource and try again.
|