library TPext;

uses
  SysUtils,
  Classes,
  Windows,
  Forms,
  Messages,
  TPExten in '..\..\Tpexten.pas'; { This unit contains the WM_COPYDATA message }

var
  Instance:integer;

{IMPLEMENTATION OF (EXPORTED) FUNCTIONS }


function TPExtensionStart( Id:TPINT32; Init:P_TPINIT; Exc:P_TPEXCEPTION ): TPBOOL; stdcall;
{ Func - This function is called if the extension DLL is loaded by Trinc-Prolog. }
begin
  Result := TRUE;
end;


function TPExtensionStop( Id:TPINT32 ): TPBOOL; stdcall;
{ Func - This function is executed when the DLL is being removed from memory by Trinc-Prolog }
begin
  Result := TRUE;
end;

{----------------------------------------------------------------------------}

{ names of the exported functions }
exports
  TPExtensionStart,
  TPExtensionStop;
begin
  { initialize the library }
end.

 

 

info@trinc-prolog.com