function TForm1.NetDisk(UNC, NDisk: string): dword;
         var sysLoginUser:string;
             NR: TNETRESOURCE;
             dwResult: dword;
             lpBuffer: PChar;//lpstr;
             nSize: DWord;
             ERRstr: pChar;
begin
     result:= 0;
     nSize:= 255;
     GetMem(lpBuffer, nSize);
     GetUserName(lpBuffer,nSize);
     sysLoginUser:= lpBuffer;    // 取得系統登錄者名稱
     // 中斷網路磁碟機
     try
        WNetCancelConnection(pChar(NDisk),True);
     except
        on E: Exception do begin
           Application.MessageBox(pChar('系統錯誤:' E.Message),
                                        '中斷網路磁碟機',MB_ICONERROR MB_OK);
           exit;
        end;
     end;         // 如果不輸入UNC, 則代表取消網路磁碟機
     if trim(UNC)<>'' then begin
        result:= 0;
        NR.dwScope:= RESOURCE_GLOBALNET;
        NR.dwType:= RESOURCETYPE_DISK;
        NR.dwDisplayType:= RESOURCEDISPLAYTYPE_SHARE;
        NR.dwUsage:= RESOURCEUSAGE_CONNECTABLE;
        NR.lpLocalName:= pChar(NDisk);
        NR.lpRemoteName:= pChar(UNC);
        NR.lpProvider:= '';
        // 連線網路磁碟機
        try
           dwResult:= WNetAddConnection2(NR,pchar(''),pchar(sysloginUser),
                                         CONNECT_UPDATE_PROFILE);
           if dwResult <> NO_ERROR then begin
              case dwResult of
                ERROR_ACCESS_DENIED            : ERRstr:= pChar('ERROR_ACCESS_DENIED' #13 
                                                                '未獲准進入網路');
                ERROR_ALREADY_ASSIGNED         : ERRstr:= pChar('ERROR_ALREADY_ASSIGNED' #13 
                                                                '已有相同的登入者先佔用');
                ERROR_BAD_DEV_TYPE             : ERRstr:= pChar('ERROR_BAD_DEV_TYPE' #13 
                                                                '登入點與網路資源不符');
                ERROR_BAD_DEVICE               : ERRstr:= pChar('ERROR_BAD_DEVICE' #13 
                                                                '登入者不存在於網路名單中');
                ERROR_BAD_NET_NAME             : ERRstr:= pChar('ERROR_BAD_NET_NAME' #13 
                                                                '找不到指定的網路路徑');
                ERROR_BAD_PROFILE              : ERRstr:= pChar('ERROR_BAD_PROFILE' #13 
                                                                '登入者的PROFILE檔格式有問題');
                ERROR_BAD_PROVIDER             : ERRstr:= pChar('ERROR_BAD_PROVIDER' #13 
                                                                '網路介面不符');
                ERROR_BUSY                     : ERRstr:= pChar('ERROR_BUSY' #13 
                                                                '網路忙線中');
                ERROR_CANCELLED                : ERRstr:= pChar('ERROR_CANCELLED' #13 
                                                                '網路不在線上');
                ERROR_CANNOT_OPEN_PROFILE      : ERRstr:= pChar('ERROR_CANNOT_OPEN_PROFILE' #13 
                                                                '系統無法開啟登入者的PROFILE檔');
                ERROR_DEVICE_ALREADY_REMEMBERED: ERRstr:= pChar('ERROR_DEVICE_ALREADY_REMEMBERED' #13 
                                                                '這個登入者資源已被佔用');
                ERROR_EXTENDED_ERROR           : ERRstr:= pChar('ERROR_EXTENDED_ERROR' #13 
                                                                '網路發生不可預期的錯誤');
                ERROR_INVALID_PASSWORD         : ERRstr:= pChar('ERROR_INVALID_PASSWORD' #13 
                                                                '登入密碼不對');
                ERROR_NO_NET_OR_BAD_PATH       : ERRstr:= pChar('ERROR_NO_NET_OR_BAD_PATH' #13 
                                                                '網路服務不存在或資源未共享');
                ERROR_NO_NETWORK               : ERRstr:= pChar('ERROR_NO_NETWORK' #13 
                                                                '沒有網路環境');
              else                               Errstr:= pChar('未定義錯誤');
              end;
              Application.MessageBox(Errstr,'連線網路磁碟機',MB_ICONERROR MB_OK);
              result:= dwResult;
           end;
        except
           on E: Exception do begin
              Application.MessageBox(pChar('系統錯誤:' E.Message),
                                     '連線網路磁碟機',MB_ICONERROR MB_OK);
           end;
        end;
     end;
end;