A
download jwantddpar.pas
Language: Delphi
License: LGPL
Copyright: (C) 1995-2003 Microsoft }
LOC: 109
Project Info
FreePascal
Server: FreePascal
Type: zip
...rc\packages\extra\winunits\
   activex.pp
   buildjwa.pp
   commctrl.pp
   comobj.pp
   jedi.inc
   jediapilib.inc
   jwaaccctrl.pas
   jwaaclapi.pas
   jwaaclui.pas
   jwaactiveds.pas
   jwaadsdb.pas
   jwaadserr.pas
   jwaadshlp.pas
   jwaadsnms.pas
   jwaadsprop.pas
   jwaadssts.pas
   jwaadstlb.pas
   jwaadtgen.pas
   jwaaf_irda.pas
   jwaatalkwsh.pas
   jwaauthif.pas
   jwaauthz.pas
   jwabatclass.pas
   jwabits.pas
   jwabits1_5.pas
   jwabitscfg.pas
   jwabitsmsg.pas
   jwablberr.pas
   jwabluetoothapis.pas
   jwabthdef.pas
   jwabthsdpdef.pas
   jwabugcodes.pas
   jwacderr.pas
   jwacmnquery.pas
   jwacolordlg.pas
   jwacpl.pas
   jwacplext.pas
   jwacryptuiapi.pas
   jwadbt.pas
   jwadde.pas
   jwadhcpcsdk.pas
   jwadhcpsapi.pas
   jwadhcpssdk.pas
   jwadlgs.pas
   jwadsadmin.pas
   jwadsclient.pas
   jwadsgetdc.pas
   jwadskquota.pas
   jwadsquery.pas
   jwadsrole.pas
   jwadssec.pas
   jwaerrorrep.pas
   jwaexcpt.pas
   jwafaxdev.pas
   jwafaxext.pas
   jwafaxmmc.pas
   jwafaxroute.pas
   jwagpedit.pas
   jwahherror.pas
   jwahtmlGuid.pas
   jwahtmlhelp.pas
   jwaiaccess.pas
   jwaiadmext.pas
   jwaicmpapi.pas
   jwaiiscnfg.pas
   jwaimagehlp.pas
   jwaimapi.pas
   jwaimapierror.pas
   jwaime.pas
   jwaioevent.pas
   jwaipexport.pas
   jwaiphlpapi.pas
   jwaipifcons.pas
   jwaipinfoid.pas
   jwaiprtrmib.pas
   jwaiptypes.pas
   jwaisguids.pas
   jwaissper16.pas
   jwalmaccess.pas
   jwalmalert.pas
   jwalmapibuf.pas
   jwalmat.pas
   jwalmaudit.pas
   jwalmconfig.pas
   jwalmcons.pas
   jwalmdfs.pas
   jwalmerr.pas
   jwalmerrlog.pas
   jwalmjoin.pas
   jwalmmsg.pas
   jwalmremutl.pas
   jwalmrepl.pas
   jwalmserver.pas
   jwalmshare.pas
   jwalmsname.pas
   jwalmstats.pas
   jwalmsvc.pas
   jwalmuse.pas
   jwalmuseflg.pas
   jwalmwksta.pas
   jwaloadperf.pas
   jwalpmapi.pas
   jwamciavi.pas
   jwamprerror.pas
   jwamsi.pas
   jwamsidefs.pas
   jwamsiquery.pas
   jwamstask.pas
   jwamstcpip.pas
   jwamswsock.pas
   jwanative.pas
   jwanb30.pas
   jwanetsh.pas
   jwanspapi.pas
   jwantddpar.pas
   jwantdsapi.pas
   jwantdsbcli.pas
   jwantdsbmsg.pas
   jwantldap.pas
   jwantquery.pas
   jwantsecapi.pas
   jwantstatus.pas
   jwaObjsel.pas
   jwapatchapi.pas
   jwapatchwiz.pas
   jwapbt.pas
   jwapdh.pas
   jwapdhmsg.pas
   jwapowrprof.pas
   jwaprofinfo.pas
   jwaprotocol.pas
   jwaprsht.pas
   jwapsapi.pas
   jwaqos.pas
   jwaqosname.pas
   jwaqospol.pas
   jwaqossp.pas
   jwareason.pas
   jwaregstr.pas
   jwarpc.pas
   jwarpcasync.pas
   jwarpcdce.pas
   jwarpcnsi.pas
   jwarpcnterr.pas
   jwarpcssl.pas
   jwascesvc.pas
   jwaschedule.pas
   jwaschemadef.pas
   jwasddl.pas
   jwasecext.pas
   jwasecurity.pas
   jwasens.pas
   jwasensapi.pas
   jwasensevts.pas
   jwasfc.pas
   jwashlguid.pas
   jwasisbkup.pas
   jwasnmp.pas
   jwasporder.pas
   jwasrrestoreptapi.pas
   jwasspi.pas
   jwasubauth.pas
   jwasvcguid.pas
   jwatlhelp32.pas
   jwatmschema.pas
   jwatraffic.pas
   jwauserenv.pas
   jwauxtheme.pas
   jwawbemcli.pas
   jwawinable.pas
   jwawinber.pas
   jwawincon.pas
   jwawincpl.pas
   jwawincred.pas
   jwawindns.pas
   jwawinefs.pas
   jwawinfax.pas
   jwawingdi.pas
   jwawinioctl.pas
   jwawinldap.pas
   jwawinnetwk.pas
   jwawinnls.pas
   jwawinnt.pas
   jwawinperf.pas
   jwawinreg.pas
   jwawinresrc.pas
   jwawinsafer.pas
   jwawinsock.pas
   jwawinsock2.pas
   jwawinsvc.pas
   jwawintype.pas
   jwawinver.pas
   jwawinwlx.pas
   jwawmistr.pas
   jwawownt16.pas
   jwawownt32.pas
   jwawpapi.pas
   jwawpapimsg.pas
   jwawpcrsmsg.pas
   jwawpftpmsg.pas
   jwawppstmsg.pas
   jwawpspihlp.pas
   jwawptypes.pas
   jwawpwizmsg.pas
   jwaws2atm.pas
   jwaws2bth.pas
   jwaws2dnet.pas
   jwaws2spi.pas
   jwaws2tcpip.pas
   jwawshisotp.pas
   jwawsipx.pas
   jwawsnetbs.pas
   jwawsnwlink.pas
   jwawsrm.pas
   jwawsvns.pas
   jwawtsapi32.pas
   jwazmouse.pas
   Makefile.fpc
   mmsystem.pp
   ole2.pp
   shellapi.pp
   shfolder.pp
   shlobj.pp
   winver.pp

{******************************************************************************}
{                                                                              }
{ Parallel Port Driver Interface Unit for Object Pascal                        }
{                                                                              }
{ Portions created by Microsoft are Copyright (C) 1995-2003 Microsoft          }
{ Corporation. All Rights Reserved.                                            }
{                                                                              }
{ The original file is: ntddpar.h , released June 2000. The original Pascal    }
{ code is: JwaNtDdPar, released December 2003. The initial developer of the    }
{ Pascal code is Pasha Sivtsov (ps4me att mail dott ru).                       }
{                                                                              }
{ The contents of this file are used with permission, subject to the Mozilla   }
{ Public License Version 1.1 (the "License"); you may not use this file except }
{ in compliance with the License. You may obtain a copy of the License at      }
{ http://www.mozilla.org/MPL/MPL-1.1.html                                      }
{                                                                              }
{ Software distributed under the License is distributed on an "AS IS" basis,   }
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
{ the specific language governing rights and limitations under the License.    }
{                                                                              }
{ Alternatively, the contents of this file may be used under the terms of the  }
{ GNU Lesser General Public License (the  "LGPL License"), in which case the   }
{ provisions of the LGPL License are applicable instead of those above.        }
{ If you wish to allow use of your version of this file only under the terms   }
{ of the LGPL License and not to allow others to use your version of this file }
{ under the MPL, indicate your decision by deleting  the provisions above and  }
{ replace  them with the notice and other provisions required by the LGPL      }
{ License.  If you do not delete the provisions above, a recipient may use     }
{ your version of this file under either the MPL or the LGPL License.          }
{                                                                              }
{ For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
{                                                                              }
{******************************************************************************}


unit JwaNtDdPar;

{$WEAKPACKAGEUNIT}

{$HPPEMIT ''}
{$HPPEMIT '#include "ntddk.h"'}
{$HPPEMIT ''}

{$I jediapilib.inc}

interface

uses
  JwaWinType, JwaWinIoctl;

const
  // Parallel port device GUIDs
  GUID_DEVINTERFACE_PARALLEL: TGUID = (
    D1:$97F76EF0; D2:$F883; D3:$11D0; D4:($AF,$1F,$00,$00,$F8,$00,$84,$5C));
  {$EXTERNALSYM GUID_DEVINTERFACE_PARALLEL}
  GUID_DEVINTERFACE_PARCLASS: TGUID = (
    D1:$811FC6A5; D2:$F728; D3:$11D0; D4:($A5,$37,$00,$00,$F8,$75,$3E,$D1));
  {$EXTERNALSYM GUID_DEVINTERFACE_PARCLASS}

  GUID_PARALLEL_DEVICE: TGUID = (
    D1:$97F76EF0; D2:$F883; D3:$11D0; D4:($AF,$1F,$00,$00,$F8,$00,$84,$5C));
  {$EXTERNALSYM GUID_PARALLEL_DEVICE}
  GUID_PARCLASS_DEVICE: TGUID = (
    D1:$811FC6A5; D2:$F728; D3:$11D0; D4:($A5,$37,$00,$00,$F8,$75,$3E,$D1));
  {$EXTERNALSYM GUID_PARCLASS_DEVICE}

  IOCTL_IEEE1284_GET_MODE = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (5 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_IEEE1284_GET_MODE}
  IOCTL_IEEE1284_NEGOTIATE = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (6 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_IEEE1284_NEGOTIATE}
  IOCTL_PAR_GET_DEFAULT_MODES = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (10 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_PAR_GET_DEFAULT_MODES}
  IOCTL_PAR_GET_DEVICE_CAPS = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (9 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_PAR_GET_DEVICE_CAPS}
  IOCTL_PAR_IS_PORT_FREE = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (21 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_PAR_IS_PORT_FREE}
  IOCTL_PAR_QUERY_DEVICE_ID = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (3 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_PAR_QUERY_DEVICE_ID}
  IOCTL_PAR_QUERY_DEVICE_ID_SIZE = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (4 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_PAR_QUERY_DEVICE_ID_SIZE}
  IOCTL_PAR_QUERY_INFORMATION = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (1 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_PAR_QUERY_INFORMATION}
  IOCTL_PAR_QUERY_LOCATION = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (22 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_PAR_QUERY_LOCATION}
  IOCTL_PAR_QUERY_RAW_DEVICE_ID = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (12 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_PAR_QUERY_RAW_DEVICE_ID}
  IOCTL_PAR_SET_INFORMATION = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (2 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_PAR_SET_INFORMATION}
  IOCTL_PAR_SET_READ_ADDRESS = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (8 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_PAR_SET_READ_ADDRESS}
  IOCTL_PAR_SET_WRITE_ADDRESS = (
    (FILE_DEVICE_PARALLEL_PORT shl 16) or (FILE_ANY_ACCESS shl 14) or
    (7 shl 2) or METHOD_BUFFERED);
  {$EXTERNALSYM IOCTL_PAR_SET_WRITE_ADDRESS}

type
  PPAR_DEVICE_ID_SIZE_INFORMATION = ^PAR_DEVICE_ID_SIZE_INFORMATION;
  {$EXTERNALSYM PPAR_DEVICE_ID_SIZE_INFORMATION}
  _PAR_DEVICE_ID_SIZE_INFORMATION = record
    DeviceIdSize: ULONG;
  end;
  {$EXTERNALSYM _PAR_DEVICE_ID_SIZE_INFORMATION}
  PAR_DEVICE_ID_SIZE_INFORMATION = _PAR_DEVICE_ID_SIZE_INFORMATION;
  {$EXTERNALSYM PAR_DEVICE_ID_SIZE_INFORMATION}
  TParDeviceIdSizeInformation = PAR_DEVICE_ID_SIZE_INFORMATION;
  PParDeviceIdSizeInformation = PPAR_DEVICE_ID_SIZE_INFORMATION;

const
  PARALLEL_INIT          = $01;
  {$EXTERNALSYM PARALLEL_INIT}
  PARALLEL_AUTOFEED      = $02;
  {$EXTERNALSYM PARALLEL_AUTOFEED}
  PARALLEL_PAPER_EMPTY   = $04;
  {$EXTERNALSYM PARALLEL_PAPER_EMPTY}
  PARALLEL_OFF_LINE      = $08;
  {$EXTERNALSYM PARALLEL_OFF_LINE}
  PARALLEL_POWER_OFF     = $10;
  {$EXTERNALSYM PARALLEL_POWER_OFF}
  PARALLEL_NOT_CONNECTED = $20;
  {$EXTERNALSYM PARALLEL_NOT_CONNECTED}
  PARALLEL_BUSY          = $40;
  {$EXTERNALSYM PARALLEL_BUSY}
  PARALLEL_SELECTED      = $80;
  {$EXTERNALSYM PARALLEL_SELECTED}

type
  PPAR_QUERY_INFORMATION = ^PAR_QUERY_INFORMATION;
  {$EXTERNALSYM PPAR_QUERY_INFORMATION}
  _PAR_QUERY_INFORMATION = record
    Status: UCHAR;
  end;
  {$EXTERNALSYM _PAR_QUERY_INFORMATION}
  PAR_QUERY_INFORMATION = _PAR_QUERY_INFORMATION;
  {$EXTERNALSYM PAR_QUERY_INFORMATION}
  TParQueryInformation = PAR_QUERY_INFORMATION;
  PParQueryInformation = PPAR_QUERY_INFORMATION;

  PPAR_SET_INFORMATION = ^PAR_SET_INFORMATION;
  {$EXTERNALSYM PPAR_SET_INFORMATION}
  _PAR_SET_INFORMATION = record
    Init: UCHAR;
  end;
  {$EXTERNALSYM _PAR_SET_INFORMATION}
  PAR_SET_INFORMATION = _PAR_SET_INFORMATION;
  {$EXTERNALSYM PAR_SET_INFORMATION}
  TParSetInformation = PAR_SET_INFORMATION;
  PParSetInformation = PPAR_SET_INFORMATION;

  PPARCLASS_NEGOTIATION_MASK = ^PARCLASS_NEGOTIATION_MASK;
  {$EXTERNALSYM PPARCLASS_NEGOTIATION_MASK}
  _PARCLASS_NEGOTIATION_MASK = record
    usReadMask: USHORT;
    usWriteMask: USHORT;
  end;
  {$EXTERNALSYM _PARCLASS_NEGOTIATION_MASK}
  PARCLASS_NEGOTIATION_MASK = _PARCLASS_NEGOTIATION_MASK;
  {$EXTERNALSYM PARCLASS_NEGOTIATION_MASK}
  TParClassNegotiationMask = PARCLASS_NEGOTIATION_MASK;
  PParClassNegotiationMask = PPARCLASS_NEGOTIATION_MASK;

const
  NONE               = $0000;
  {$EXTERNALSYM NONE}
  CENTRONICS         = $0001;
  {$EXTERNALSYM CENTRONICS}
  IEEE_COMPATIBILITY = $0002;
  {$EXTERNALSYM IEEE_COMPATIBILITY}
  NIBBLE             = $0004;
  {$EXTERNALSYM NIBBLE}
  CHANNEL_NIBBLE     = $0008;
  {$EXTERNALSYM CHANNEL_NIBBLE}
  BYTE_BIDIR         = $0010;
  {$EXTERNALSYM BYTE_BIDIR}
  EPP_HW             = $0020;
  {$EXTERNALSYM EPP_HW}
  EPP_SW             = $0040;
  {$EXTERNALSYM EPP_SW}
  EPP_ANY            = $0060;
  {$EXTERNALSYM EPP_ANY}
  BOUNDED_ECP        = $0080;
  {$EXTERNALSYM BOUNDED_ECP}
  ECP_HW_NOIRQ       = $0100;
  {$EXTERNALSYM ECP_HW_NOIRQ}
  ECP_HW_IRQ         = $0200;
  {$EXTERNALSYM ECP_HW_IRQ}
  ECP_SW             = $0400;
  {$EXTERNALSYM ECP_SW}
  ECP_ANY            = $0780;
  {$EXTERNALSYM ECP_ANY}

implementation

end.

About Koders | Resources | Downloads | Support | Black Duck | Terms of Service | DMCA | Privacy Policy | Contact Us