深藍色論壇

代碼: 選擇全部

     
    { 檢查NT登入帳號密碼 } 
    function checkNTPass(iUserID, iPassword, iRemoteName: String): Boolean; 
    var 
      lpNetResource:  _NETRESOURCE; 
    begin 
      lpNetResource.dwType := RESOURCETYPE_ANY; 
      lpNetResource.lpLocalName := Nil; 
      lpNetResource.lpRemoteName := PChar(iRemoteName); 
      lpNetResource.lpProvider := Nil; 
      case WNetAddConnection2(lpNetResource, PChar(iPassword), PChar(iUserID), 0) of 
        NO_ERROR: begin 
          Result := True; 
          if WNetCancelConnection2(PChar(iRemoteName), 0, true) <> NO_ERROR then 
            //showMessage('無法離線') 
          else 
            //showMessage('已離線'); 
        end else 
          Result := False; 
      end; 
    end;