uso de dll a partir de xharbour

[AlexCunha]

Algum dos amigos me pode indicar guias ou exemplos de uso de dll desde código xharbour ?

Há tenho um exemplo, mas tá um pouco complicado ...

ac

[AlexCunha]

Um outro exemplo que peguei me pareceu bem simples

Código: Selecionar todos

procedure Main()
  alert ("teste")
  shLibKrnl32 := LoadLibrary("KERNEL32.DLL")
  alert (shLibKrnl32)
  CallProc (GetProcAddress(shLibKrnl32, "MultiByteToWideChar"), 0, 0, pcStr, -1, pnPtrWide, LEN(pcStr) + 1)
  FreeLibrary(shLibKrnl32)
return

O que tenho de incluir no meu prg para que LoadLibrary, CallProc e FreeLibrary sejam aceites ?

ac

[culik]

ola

pegue o arquivo dllbema na area de arquivos da lista harbourbr
e o fonte para poder usar a dll da bematech com xharbour

[]´s
Luiz
www.xharbour.com.br