delph.cpp

一个Delphi解释器的例子

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("delph.res");
USEPACKAGE("vcl35.bpi");
USEUNIT("delphin.pas");
USERES("delphin.dcr");
//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
//   Package source.
//---------------------------------------------------------------------------
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
        return 1;
}
//---------------------------------------------------------------------------