В следующем примере холостой обработчик событий активизируется при загрузке би лиотеки. Этот обработчик только печатает сообщение. Когда библиотека разг ужается, холостой обработчик деактивизируется.

Код Visual FoxPro

SET LIBRARY TO ACTIIDLE

WAIT WINDOW TO m.test TIMEOUT 5

SET LIBRARY TO

Код C

#include <pro_ext.h>

static unsigned IdlerID;

// This is the routine that is registered as an idle event handler.

void FAR IdleHandler(WHandle wh, EventRec *ev)

{

_PutStr("\nIdleHandler() called.");

}

void FAR Activate(ParamBlk FAR *parm)

{

IdlerID = _ActivateIdle((FPFI) IdleHandler);

}

// When the library is unloaded we must deactivate the idle event

// handlerin a CALLONUNLOAD function.

void FAR DeActivate(ParamBlk FAR *parm)

{

_DeActivateIdle(IdlerID);

}

FoxInfo myFoxInfo[] = {

{"ACTIVATE", (FPFI) Activate, CALLONLOAD, ""},

{"DEACTIVATE", (FPFI) DeActivate, CALLONUNLOAD, ""}

};

FoxTable _FoxTable = {

(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo

};