ExecInDLLOpen

library DLLProtheus;
uses sysutils;
{$R *.RES}

function ExecInClientDLL( ID: Integer; aPar: PChar; Buf: PChar; nBuf: Integer ): integer; stdcall;
begin
    result := -1;


    if (ID = 1) then begin
      StrPCopy(Buf, PChar('Retorno opção 01'));
      result := 200;
    end else if (ID = 2)then begin
      StrPCopy(Buf, PChar('Retorno opção 02'));
      result := 300;
    end;


end;


exports ExecInClientDLL;
begin
end.

// Abre Dll
hHdl := ExecInDLLOpen( "TSTDLL.DLL" )

// ----------------------------------------------------------------
// Envia comando para execução, repare que estamos 
// usando a opção "1" no momento de chamar a DLL.
// ----------------------------------------------------------------

// ExecInDllRun não retorna valor da DLL
buffer:= "Executando a partir da ExecInDllRun..."
xRet1 := ExecInDllRun( hHdl, 1, @buffer )
alert("Retorno da ExecInDllRun: " + xRet1)


// ExeDllRun2 retorna valor numérico da DLL
buffer:= "Executando a partir da ExeDllRun2..."
nRet2 := ExeDllRun2( hHdl, 1, @buffer )
alert("Retorno da ExeDllRun2: " + StrZero(nRet2,3))


// ExeDllRun3 retorna valor numérico da DLL
buffer:= "Executando a partir da ExeDllRun3..."
nRet3 := ExeDllRun3( hHdl, 1, @buffer )
alert("Retorno da ExeDllRun3: " + StrZero(nRet3,3))

// ----------------------------------------------------------------
// Fecha a DLL
ExecInDllClose( hHdl )