Q&A

  • 같은 네트워크상의 컴퓨터 자동연결에 대해서..
안녕하세요, 모두 좋은 하루 되시구요~
질문 들어갑니다.

현재 제가 원하는 기능은 같은 네트워크 상에서
SUB(가칭 : Windows 2000 Server)라는 이름의 컴퓨터로 자동 네트워크 연결이 되길 원합니다.

프로그램 실행이 됨과 동시에 ID,PW(이미 알고 있는 정보) 입력하는
부분 없이 바로 연결이
2  COMMENTS
  • Profile
    바다사랑 2004.05.19 22:42

    procedure TForm1.FormCreate(Sender: TObject);
    var
      NRW     : TNetResource;
      CurrDir : array[0..200] of char;
    begin
      With NRW do  begin
           dwType       := RESOURCETYPE_DISK;
           lpRemoteName := PChar('\\192.6.2.1\연결할디랙토리');
           lpLocalName  := PChar('Z:');
           lpProvider   := nil;
      end;
        WNetAddConnection2(NRW,PChar('비밀번호'),PChar('사용자id'),CONNECT_UPDATE_PROFILE);
      SetCurrentDirectory(Pchar('Z:\네트웍드라이브'));

    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    var
      lpszLocalName : array[0..50] of Char;
      rt : DWORD;
    begin
      StrPCopy(lpszLocalName, 'Z:'); // 로컬 드라이브명
      rt := WNetCancelConnection(lpszLocalName, True);
    end;


    이렇게 함 해보세요.....



  • Profile
    세린 2004.05.31 19:51
    안녕하세요, 답변 감사드립니다.

    제가 이제서야 확인후에 적용을 해봤네요..
    그런데 연결이 계속 안되네요..^^;;;

    질문 관심가져주셔서 감사합니다.