전 이렇게 쓰고 있습니다.
//프로그램 생성시 연결
procedure TFrmMain.FormCreate(Sender: TObject);
var
  NRW: TNetResource;
begin
  with NRW do
  begin
    dwType := RESOURCETYPE_DISK;
    lpRemoteName := PChar('\\아이피\해당디렉토리');      
    lpLocalName := PChar('Z:');  //네크워크드라이브 Z로 설정
    lpProvider := nil;
  end;
  WNetAddConnection2(NRW,PChar(패스워드),PChar(로그인아이디),CONNECT_UPDATE_PROFILE);
end;

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


그럼 도움이 되셨기를....즐프하세요

  감사합니다. 그런데 그 함수(WNetAddConnection2)를 쓰니까
  ERROR_NO가  487 이 넘어오더라구요..

  찾아보니 INVALID ADDRESS 라고 하던데..
  ip address 는 정확하게 주었거덩요..
  혹 다른 원인이 있는건 아닌지.. 참고로 DELPHI 7.0 입니다.

  with NRW do
    begin
      dwType       := RESOURCETYPE_DISK;
      lpLocalName  := PChar('Z:');
      lpRemoteName := PChar('\\9.53.208.127\log');
      lpProvider   := nil;
    end;

    wdErr := WNetAddConnection2(NRW,  PChar('1'), PChar('administrator'), CONNECT_UPDATE_PROFILE);

  

WNetAddConnection2 API가 있습니가..
게시판에 함 검색을 해 보세여.