¿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>