Следующий пример представляет собой цикл, включающий вызов программы _GetNextEvent( ) и вслед за ним вызов _DefaultProcess( ). Все события, наступающие в ходе данной процедуры, подвергаются обработке, предусмотренной по умолчанию.

Код Visual FoxPro

SET LIBR TO GETNXEV

Код C

#include <pro_ext.h>

FAR Example(ParamBlk FAR *parm)

{

EventRec ev;

int i;

for (i = 0; i < 16; i++) {

_GetNextEvent(&ev);

_DefaultProcess(&ev);

}

}

FoxInfo myFoxInfo[] = {

{"ONLOAD", Example, CALLONLOAD, ""},

};

FoxTable _FoxTable = {

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

};