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

Код Visual FoxPro

SET LIBRARY TO ACTIHAND

WAIT WINDOW TO m.test TIMEOUT 5

SET LIBRARY TO

Код 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", Activate, CALLONLOAD, ""},

{"DEACTIVATE", DeActivate, CALLONUNLOAD, ""}

};

FoxTable _FoxTable = {

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

};