네트워크 드라이브를 연결하고자 합니다(프로그램 실행시)
그런데 제가 코딩한 방법으로는 되질 않더군요..
강제로 [내컴퓨터]에서 네트워크 드라이브를 지정해주고 아래의 코딩을
실행시키면 연결이 되는데..
그렇지 않고서는 연결이 안되더라구요..
제 코딩에 이상이 있는건지 잘 몰라서 ..
procedure TMainForm.ConnectNetworkDrive;
var
NRW : TNetResource;
begin
with NRW do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := 'X:';
lpRemoteName := '\\MYCOM\TEST';
lpProvider := '';
end;
WNetAddConnection2(NRW,'AAA','AAA',CONNECT_UPDATE_PROFILE);
end;
해결을 부탁드립니다.
|