unit WDG;

interface

uses Windows;
const
    InterfaceTypeUndefined = -1;
    Internal = 0;
    Isa = 1;
    Eisa = 2;
    MicroChannel = 3;
    TurboChannel = 4;
    PCIBus = 5;
    VMEBus = 6;
    NuBus = 7;
    PCMCIABus = 8;
    CBus = 9;
    MPIBus = 10;
    MPSABus = 11;
    ProcessorInternal = 12;
    InternalPowerBus = 13;
    PNPISABus = 14;
    MaximumInterfaceType = 15;

	 IGNORE_TIMEOUT = 1;
	 DISABLE_TIMEOUT = 2;
	 SHUTDOWN_TIMEOUT = 3;

function WDGSetHandler(Base: DWORD; IRQ: WORD; BusType: SmallInt; BusNumber: BYTE; HandleCOS: BYTEBOOL; HandleTimeout: BYTEBOOL; TimeoutOp: WORD):BYTEBOOL; cdecl; external 'wdg.dll' name '_WDGSetHandler';
function WDGGetStatus(Data: Pointer): ByteBool; cdecl; external 'wdg.dll' name '_WDGGetStatus';
procedure WDGInit(addr: DWORD); cdecl; external 'wdg.dll' name '_WDGInit';
function WDGSetTimeout(milliseconds: double; clockrate: double): double; cdecl; external 'wdg.dll' name '_WDGInit';
function WDGResetDuration(milliseconds: double; clockrate: double): double; cdecl; external 'wdg.dll' name '_WDGResetDuration';
function WDGPrompt: smallint; cdecl; external 'wdg.dll' name '_WDGPrompt';
function WDGReadTemp: double; cdecl; external 'wdg.dll' name '_WDGReadTemp';
function WDGReadStatus: byte; cdecl; external 'wdg.dll' name '_WDGReadStatus';
function WDGStart: smallint; cdecl; external 'wdg.dll' name '_WDGStart';
function WDGStop: smallint; cdecl; external 'wdg.dll' name '_WDGStop';
function WDGEmergencyShutdown: shortint; cdecl; external 'wdg.dll' name '_WDGEmergencyShutdown';

implementation

end.