1 #include <stdio.h> 2 3 class FPC_DLL 4 { 5 public: 6 FPC_DLL(); 7 // ~FPC_DLL(); 8 }; 9 10 static FPC_DLL fpc_dll(); 11 12 //FPC_DLL::~FPC_DLL() 13 //{ 14 // printf ("main thread ended."); 15 //} 16 17 18 extern "C" void PASCALMAIN(void); 19 extern int operatingsystem_parameter_argc; 20 extern void * operatingsystem_parameter_argv; 21 extern void * operatingsystem_parameter_envp; 22 23 static char * _argv[] = {"dll",0}; 24 static char * _envp[] = {0}; 25 BEGIN()26extern "C" void BEGIN() 27 { 28 printf ("init\n"); 29 operatingsystem_parameter_argc=0; 30 operatingsystem_parameter_argv = (void *)_argv; 31 operatingsystem_parameter_envp = (void *)_envp; 32 PASCALMAIN(); 33 } 34 FPC_DLL()35FPC_DLL::FPC_DLL() 36 { 37 BEGIN(); 38 } 39 40