ccode.c

《Delphi开发人员指南》配书原码

#include "PasStng.h"

// globals
extern char * GLOBALVAR;

// exported data
char __export C_VAR[128];

#ifdef __cplusplus
extern "C" {
#endif

//externals
extern int __stdcall MessageBox(long, char *, char *, long);

//functions
int __export __cdecl SAYHELLO(char * hellostr)
{
  char a[64];
  memset(a, 64, 0);
  strcat(a, hellostr);
  strcat(a, " from Borland C++Builder");
  MessageBox(0, a, GLOBALVAR, 0);
  return 0;
}

#ifdef __cplusplus
}     // end of extern "C"
#endif