Code: Select all | Expand
Function Main()
Fun_C() // aqui executo a funcao em C
Return
Function calchrb()
Return 1
#pragma begindump
#include <windows.h>
#include <stdlib.h>
#include "hbapi.h"
HB_FUNC( FUN_C )
{
int x;
x = calchrb(); // aqui executo a função em xHarbour a partir do codigo C
}
#pragma enddump