Histórico da Página

#define MB_OK                       0
#define MB_OKCANCEL                 1
#define MB_YESNO                    4
#define MB_ICONHAND                 16
#define MB_ICONQUESTION             32
#define MB_ICONEXCLAMATION          48
#define MB_ICONASTERISK             64

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 DLL
buffer:= "Executando a partir da ExecInDllRun2..."
xRet1 := ExeDllRun3( hHdl, 1, @buffer )
MessageBox("Retorno da ExeDllRun3: " + Alltrim(Str(xRet1)) + " - " + buffer, "ExeDllRun3", MB_ICONEXCLAMATION)
  
// ExeDllRun3 retorna valor numérico da DLL
buffer:= "Executando a partir da ExeDllRun3..."
xRet2 := ExeDllRun3( hHdl, 2, @buffer )
MessageBox("Retorno da ExeDllRun3: " + Alltrim(Str(xRet2)) + " - " + buffer, "ExeDllRun3", MB_ICONEXCLAMATION)

// ExeDllRun3 retorna valor numérico da DLL
buffer:= "Executando a partir da ExeDllRun3..."
xRet3 := ExeDllRun3( hHdl, 3, @buffer )
MessageBox("Retorno da ExeDllRun3: " + Alltrim(Str(xRet3)) + " - " + buffer, "ExeDllRun3", MB_ICONEXCLAMATION)

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