Red de conocimiento informático - Aprendizaje de código fuente - ¿Cómo escribir el código DLL de Yi Language en Delphi?

¿Cómo escribir el código DLL de Yi Language en Delphi?

Esta DLL tiene solo una función: RunDllHostCallBack, con tres parámetros: parámetro uno, entero, parámetro dos, entero, parámetro tres, entero. La función carga una ventana, que está escrita así en delphi:

biblioteca. Proyecto1;

usa

SysUtils,

Clases,

Unidad1 en '{Forms1 pas p> SysUtils,

Clases,

Unidad1 en 'Unidad1.pas' {Form1};

{$R *.res}

función RunDllHostCallBack(int1, int2, int3. entero): entero; stdcall

comenzar

Resultado:= 0;

probar

formulario1:= Tform1.Create ( nil);

form1.ShowModal;

Cerrar;

excepto

Resultado := -1;

finalizar;

finalizar;

exportaciones

RunDllHostCallBack;

comenzar

finalizar. p>