WinPortIO.dll

WinPortIO简介： WinPortIO 允许你的Win32程序实时直接访问PC机的I/O端口而无须编写驱动程序或借助其他工具。WinPortIO支持Windows NT/2000/XP。WinPortIO容易使用：在Windows NT/2000/XP下，WinPortIO 驱动程序可以动态地加载和卸载，你不需要做任何设置工作。该软件还包含了 Visual Basic、Delphi、Visual C++ 等例子供你参考 C/C++ 原型: void WINAPI SetPortByte(short int Port, char Data); void WINAPI SetPortWord(short int Port, short int Data); void WINAPI SetPortDWord(short int Port, int Data); char WINAPI GetPortByte(short int Port); short int WINAPI GetPortWord(short int Port); int WINAPI GetPortDWord(short int Port); bool WINAPI InitializeWinPortIO(); void WINAPI ShutWinPortIO(); void WINAPI LicenseInfo(LPCTSTR lpUserName, LPCTSTR sKey); Delphi 原型: procedure SetPortByte(Port : Word; Data : Byte); procedure SetPortWord(Port : Word; Data : Word); procedure SetPortDWord(Port : Word; Data : DWord); function GetPortByte(Port : Word) : Byte; function GetPortWord(Port : Word) : Word; function GetPortDWord(Port : Word) : DWord; function InitializeWinPortIO: Boolean; procedure ShutWinPortIO; procedure LicenseInfo(lpUserName:string; sKey:string); 提示：在Delphi程序中使用这些函数，需要正确的调入，例如： procedure SetPortByte(Port : Word; Data : Byte); stdcall; external 'WinPortIO.dll'; function GetPortByte(Port : Word) : Byte; stdcall; external 'WinPortIO.dll'; Visual Basic 原型: Private Declare Sub SetPortByte Lib "WinPortIO.DLL" (ByVal Port As Integer, ByVal Data As Byte) Private Declare Sub SetPortWord Lib "WinPortIO.DLL" (ByVal Port As Integer, ByVal Data As Integer) Private Declare Sub SetPortDWord Lib "WinPortIO.DLL" (ByVal Port As Integer, ByVal Data As Long) Private Declare Function GetPortByte Lib "WinPortIO.DLL" (ByVal Port As Integer) As Byte Private Declare Function GetPortWord Lib "WinPortIO.DLL" (ByVal Port As Integer) As Integer Private Declare Function GetPortDWord Lib "WinPortIO.DLL" (ByVal Port As Integer) As Long Private Declare Function InitializeWinPortIO Lib "WinPortIO.DLL" As Boolean Private Declare Sub ShutWinPortIO Lib "WinPortIO.DLL" 函数功能描述： SetPortByte 向端口写入一个 byte(8-bits)数据。 SetPortWord 向端口写入一个 Word(16-bits)数据。 SetPortDWord 向端口写入一个 DWord(32-bits)数据。 GetPortByte 从端口读入一个 byte(8-bits)数据。 GetPortWord 从端口读入一个 Word(16-bits)数据。 GetPortDWord 从端口读入一个 DWord(32-bits)数据。 InitializeWinPortIO 完成WinPortIO.dll初始化工作，成功初始化后返回 True 值 ShutWinPortIO 释放WinPortIO.dll LicenseInfo 注册这个文件