自己写了一个操作端口的DLL文件

 WinPortIO.dll使用说明：

WinPortIO.dll运行在Windows NT/2000/XP下，提供一些读取写入端口(I/O Ports)的功能。支持C C++ Delphi VB语言
作者：simon
电子邮件：winportio@hotmail.com
2006.12.1

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();
bool WINAPI ShutWinPortIO();

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;
function ShutWinPortIO: Boolean;

提示：在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 Function ShutWinPortIO Lib "WinPortIO.DLL" As Boolean

函数功能描述：

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，成功返回 True 值