В следующем примере создается и отображается окно. После того как пользователь нажмет клавишу в ответ на команду Visual FoxPro WAIT, _WClose( ) закрывает ок о.

Код Visual FoxPro

SET LIBRARY TO WCLOSE

Код C

#include <pro_ext.h>

FAR Ex(ParamBlk FAR *parm)

{

WHANDLE wh;

int row, col;

Rect r;

wh = _WOpen(2, 2, 20, 70, 0, WINDOW_SCHEME, (Scheme FAR *) 0,

WO_SYSTEMBORDER);

_WShow(wh);

_Execute("WAIT WINDOW 'Press any key to close window'");

_WClose(wh);

}

FoxInfo myFoxInfo[] = {

{"ONLOAD", (FPFI) Ex, CALLONLOAD, ""},

};

FoxTable _FoxTable = {

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

};