Следующий пример содержит две API-программы. Функция WINOPEN( ) открывает ок о, но не вызывает программу _WShow( ), чтобы вы увидели, что окно до вызова _WShow( ) остается скрытым.

Код Visual FoxPro

SET LIBRARY TO WSHOW

wh = WOPEN()

= WSHOW(wh)

Код C

#include <pro_ext.h>

FAR WOpen(ParamBlk FAR *parm)

{

_RetInt(_WOpen(2, 2, 20, 70, WEVENT | CLOSE, WINDOW_SCHEME,

(Scheme FAR *) 0, WO_SYSTEMBORDER), 10);

}

FAR WShow(ParamBlk FAR *parm)

{

_WShow(parm->p[0].val.ev_long);

}

FoxInfo myFoxInfo[] = {

{"WOPEN", (FPFI) WOpen, 0, ""},

{"WSHOW", (FPFI) WShow, 1, "I"},

};

FoxTable _FoxTable = {

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

};