WNetAddConnection2 를 써서 서버쪽에 디렉토리나 파일을 넣을려고 합니다.
procedure TIMG01_01A000.Button4Click(Sender: TObject);
var
wResult : Word;
pcRemotePath, pcUserID, pcPassword : PChar;
NetResource : _NETRESOURCE;
rc : integer;
begin
NetResource.dwType := RESOURCETYPE_DISK;
NetResource.lpLocalName := nil;
NetResource.lpRemoteName := PChar('\\파일서버ip\LOCALTAX$');
NetResource.lpProvider := nil;
rc := WNetAddConnection2(NetResource, Pchar('sky'), Pchar('administrator'), CONNECT_REDIRECT);
CreateDirectory(Pchar('\\파일서버ip\LOCALTAX$\aaa'),nil);
end;
요렇게 했는데.. 디렉토리가 생성이 안되더군요;;
로그인만 하면 되긴하는데. 로그인이 안되는 듯합니다;;
제컴은 xp 이고 서버는 윈도우2000서버 구요..
아시는 분은 답변을 달아주시면 감사하겠습니다.
그럼..꾸벅..
<!--CodeS-->
var
NetRes: TNetResource;
ErrorCode: LongWord;
begin
FillChar(NetRes, SizeOf(NetRes), 0);
NetRes.dwType := RESOURCETYPE_DISK;
NetRes.lpRemoteName := PChar('\\192.168.10.60\Shared');
ErrorCode := WNetAddConnection3(Handle, NetRes, 'password', 'userid', 0);
if ErrorCode <> NO_ERROR then
ShowMessage(SysErrorMessage(GetLastError));
CopyFile('c:\test.zip', PChar('\\192.168.10.60\Shared\test.zip'), False);
end;
<!--CodeE-->