프로그램으로 네트워크 드라이브 연결/해제 | 델파이 2005/05/04 20:28  

http://blog.naver.com/tonyup/80012576356

출처 : http://www.howto.pe.kr  

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

// 네트워크 드라이브 연결
procedure TForm1.Button1Click(Sender: TObject);
var
  lpszNetPath,
  lpszPassword,
  lpszLocalName: array[0..50] of Char;
  rt: DWORD;
begin
  StrPCopy(lpszPassword,  '1234'); // 네트워크 드라이브(공유폴더)의 비밀번호
  StrPCopy(lpszNetPath,   'Unify5insa'); // 네트워크 드라이브+공유폴더
  StrPCopy(lpszLocalName, 'F:'); // 로컬 드라이브명

  rt := WNetAddConnection(lpszNetPath, lpszPassword, lpszLocalName);

  if rt = 7 then
  begin
    ShowMessage('네트워크 드라이브를 연결할 수 없습니다. 비밀번호를 확인하세요');
  end
  else if rt <> WN_SUCCESS then
  begin
    MessageDlg('네트워크 드라이브를 연결할 수 없습니다'+
               ', Return Code: ' + (IntToStr(rt)) ,
               mtInformation, [mbOk], 0);
  end
  else
  begin
    ShowMessage('네트워크 드라이브가 설정되었습니다');
  end;
end;

// 네트워크 드라이브 연결 해제
procedure TForm1.Button2Click(Sender: TObject);
var
  lpszLocalName: array[0..50] of Char;
  rt: DWORD;
begin
  StrPCopy(lpszLocalName, 'F:'); // 로컬 드라이브명
  rt := WNetCancelConnection(lpszLocalName, True);

  if rt <> WN_SUCCESS then
  begin
    MessageDlg('네트워크 드라이브의 연결을 해제할 수 없습니다'+
               ', Return Code: ' + (IntToStr(rt)) ,
               mtInformation, [mbOk], 0);
  end
  else
  begin
    ShowMessage('네트워크 드라이브의 연결이 해제되었습니다');
  end;
end;

end.





{

//**** Return value list



  Value                  (Hex Value)  Meaning
   -----------------------------------------------------------------------
   WN_SUCCESS             (&H0)        Function was successful.
   WN_NOT_SUPPORTED       (&H1)        Function was not supported.
   WN_OUT_OF_MEMORY       (&HB)        System was out of memory.
   WN_NET_ERROR           (&H2)        An error occurred on the network.
   WN_BAD_POINTER         (&H4)        Pointer was invalid.
   WN_BAD_NETNAME         (&H32)       Network resource name was invalid.
   WN_BAD_LOCALNAME       (&H33)       Local device name was invalid.
   WN_BAD_PASSWORD        (&H6)        Password was invalid.
   WN_ACCESS_DENIED       (&H7)        A security violation occurred.
   WN_ALREADY_CONNECTED   (&H34)       Local device was already connected
                                       to a remote resource.
}