В следующем примере при загрузке библиотеки активизируется обработчик событий. Обработчик печатает сообщение для каждого события и предоставляет Visual FoxPro возможность обработать это сообщение. Когда библиотека разгружается, обра отчик событий деактивизируется. Как и в данном примере, _DeActivateHandler( ) обыч о вызывается из функции CALLONUNLOAD.

Код Visual FoxPro

SET LIBRARY TO DEACTHAN

Код C

#include <pro_ext.h>

static int HandlerID;

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

FAR EventHandler(WHandle theWindow, EventRec FAR *ev)

{

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

return NO; // event still needs to be handled by Visual FoxPro

}

FAR Activate()

{

HandlerID = _ActivateHandler(EventHandler);

}

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

// in a CALLONUNLOAD function.

FAR DeActivate()

{

_DeActivateHandler(HandlerID);

}

FoxInfo myFoxInfo[] = {

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

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

};

FoxTable _FoxTable = {

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

};