unit4.~pas

这是一个对工作人员监控的很好的软件,当人不在时候,能够很好的监控人员!

//***********************************************
//WinIO的声明单元
//***********************************************
unit Unit4;

interface

 function InstallWinIoDriver(const PathName: String; Flags: Boolean): Boolean; stdcall;
 function InitializeWinIo():Boolean; stdcall;
 function SetPortVal(PortAddr:Integer;PortVal:Integer;bSize:Byte):Boolean; stdcall;
 function GetPortVal(PortAddr:Integer;pPortVal:dword;bSize:Byte):Boolean;stdcall;
 procedure ShutdownWinIo;  stdcall;
 procedure RemoveWinIoDriver; stdcall;

implementation

 function InstallWinIoDriver(const PathName: String; Flags: Boolean): Boolean;
        external 'winio.dll' name 'InstallWinIoDriver';  stdcall;
 function SetPortVal(PortAddr:Integer;PortVal:Integer;bSize:Byte):Boolean;
        external 'winio.dll' name 'SetPortVal';  stdcall;
 function GetPortVal(PortAddr:Integer;pPortVal:dword;bSize:Byte):Boolean;
        external 'winio.dll' name 'GetPortVal';  stdcall;
 function InitializeWinIo():Boolean;
        external 'winio.dll' name 'InitializeWinIo'; stdcall;
 procedure ShutdownWinIo;
        external 'winio.dll' name 'ShutdownWinIo'; stdcall;
 procedure RemoveWinIoDriver;
        external 'winio.dll' name 'RemoveWinIoDriver';  stdcall;
end.