mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
130 lines
4.4 KiB
130 lines
4.4 KiB
#include <windows.h>
|
|
|
|
int TrapONE, TimerONEid;
|
|
void (far pascal *TrapONEProc)(int);
|
|
int TrapTWO, TimerTWOid;
|
|
void (far pascal *TrapTWOProc)(int);
|
|
|
|
//---------------------------------------------------------------------------
|
|
// TimerONE
|
|
//
|
|
// This is the timer routine for trap ONE. It calls the trap proc to exec
|
|
// the pcode associated with this trap.
|
|
//
|
|
// RETURNS: 1 (for lack of anything better...)
|
|
//---------------------------------------------------------------------------
|
|
WORD FAR PASCAL TimerONE (HWND hwnd, WORD mMsg, int id, DWORD dwTime)
|
|
{
|
|
TrapONEProc (TrapONE);
|
|
return (1);
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
// one
|
|
//
|
|
// This is a WTD trap routine. It basically sets a timer for 2 seconds.
|
|
//
|
|
// RETURNS: Nothing
|
|
//---------------------------------------------------------------------------
|
|
VOID FAR PASCAL one (int TrapID, int Action, FARPROC TrapProc)
|
|
{
|
|
if (Action)
|
|
{
|
|
// Action=TRUE means activate the trap.
|
|
//-------------------------------------------------------------------
|
|
TrapONE = TrapID;
|
|
TrapONEProc = TrapProc;
|
|
TimerONEid = SetTimer (NULL, 1, 2000, TimerONE);
|
|
}
|
|
else
|
|
// Action=FALSE means deactivate the trap.
|
|
//-------------------------------------------------------------------
|
|
KillTimer (NULL, TimerONEid);
|
|
}
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
// TimerTWO
|
|
//
|
|
// This is the timer routine for trap TWO. It calls the trap proc to exec
|
|
// the pcode associated with this trap.
|
|
//
|
|
// RETURNS: 1 (for lack of anything better...)
|
|
//---------------------------------------------------------------------------
|
|
WORD FAR PASCAL TimerTWO (HWND hwnd, WORD mMsg, int id, DWORD dwTime)
|
|
{
|
|
TrapONEProc (TrapTWO);
|
|
return (1);
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
// two
|
|
//
|
|
// This is a WTD trap routine. It basically sets a timer for 3.33 seconds.
|
|
//
|
|
// RETURNS: Nothing
|
|
//---------------------------------------------------------------------------
|
|
VOID FAR PASCAL two (int TrapID, int Action, FARPROC TrapProc)
|
|
{
|
|
if (Action)
|
|
{
|
|
// Action=TRUE means activate the trap.
|
|
//-------------------------------------------------------------------
|
|
TrapTWO = TrapID;
|
|
TrapTWOProc = TrapProc;
|
|
TimerTWOid = SetTimer (NULL, 2, 100, TimerTWO);
|
|
}
|
|
else
|
|
// Action=FALSE means deactivate the trap.
|
|
//-------------------------------------------------------------------
|
|
KillTimer (NULL, TimerTWOid);
|
|
}
|
|
|
|
|
|
|
|
|
|
/*----------------------------------------------------------------------------
|
|
| LibMain
|
|
|
|
|
| Main DLL entry point.
|
|
|
|
|
| Arguments:
|
|
| hInstance
|
|
| wDataSeg
|
|
| wHeapSize
|
|
| lpCmdLine
|
|
----------------------------------------------------------------------------*/
|
|
|
|
int FAR PASCAL LibMain(hInstance, wDataSeg, wHeapSize, lpCmdLine)
|
|
HANDLE hInstance ;
|
|
WORD wDataSeg;
|
|
WORD wHeapSize;
|
|
LPSTR lpCmdLine;
|
|
{
|
|
return(1);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------------*\
|
|
| WINDOWS EXIT PROCEDURE |
|
|
| This routine is required for all DLL's. It provides a means for cleaning |
|
|
| up prior to closing the DLL. |
|
|
| |
|
|
| CALLED ROUTINES |
|
|
| -none- |
|
|
| |
|
|
| PARAMETERS |
|
|
| WORD wParam = TRUE is system shutdown
|
|
| |
|
|
| GLOBAL VARIABLES |
|
|
| -none- |
|
|
| |
|
|
| RETURNS |
|
|
| -none- |
|
|
\*---------------------------------------------------------------------------*/
|
|
void FAR PASCAL WEP(wParam)
|
|
WORD wParam;
|
|
|
|
{
|
|
return;
|
|
}
|