Histórico da Página

User Function DllTeste()
 
Local hHdl := 0,buffer := "",xRet1 := 0
// Abre Dll
hHdl := ExecInDLLOpen( "DllTeste.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 DLLComando 1
buffer:= "Executando a partir da ExecInDllRunExecInDllRun2..."
xRet1 := ExeDllRun2( hHdl, 1, @buffer )
alert("Retorno da ExeDllRun2: " + Alltrim(Str(xRet1)) + " - " + buffer)
 
 
// Comando 2
buffer:= "Executando a partir da ExeDllRun2 retorna valor numérico da DLL..."
xRet2 := ExeDllRun2( hHdl, 2, @buffer )
alert("Retorno da ExeDllRun2: " + Alltrim(Str(xRet2)) + " - " + buffer)

// Comando invalido
buffer:= "Executando a partir da ExeDllRun2..."
xRet2xRet3 := ExeDllRun2( hHdl, 23, @buffer )
alert("Retorno da ExeDllRun2: " + Alltrim(Str(xRet2xRet3)) + " - " + buffer)
 
// ----------------------------------------------------------------
// Fecha a DLL
ExecInDllClose( hHdl )
 
Return