Selecao dinamica de DLL na Unit

Question

Ae mo�ada...Eu tenho uma unit que faz chamadas em uma DLL, s� que o problema � : o nome da DLL pode mudar dependendo da ocasi�o.Ex:...const dll = �ECFAFRAC.DLL�;...implementation{$R *.DFM}  function F...

Nildo · Answer

Neste caso voc� chamar DLLs dinamicamente, utilizando as fun��es

LoadLibrary para carregar a DLL e retornar um Handle,
e a fun��o GetProcAddress para atribuir uma procedure desta DLL a um ponteiro.

No Google voc� encontra v�rios exemplos desta utiliza��o, � s� fazer uma pesquisa por: LoadLibrary GetProcAddress Delphi.

Marcelo Saviski · Answer

Usando esse modelo [i:3ffe267111]function Fazalgumacoisa (Var: pchar): Integer; StdCall; External dll; [/i:3ffe267111]
O Delphi inclui qual dll e quais fun��es no cabe�alho do execut�vel, ao executar, o Windows verific se essa dll existe e as fun��es, se n�o encontrar, emite uma mensagem de erro e aborta o programa, at� ai vc nem fica sabendo

para carregar as dlls dinamicamente, vc pode fazer assim:

type
  TTipoFuncao = function(parametros: tipo....): tipo;

var
  funcao: TTipoFuncao;
  Dll: THandle;

ai � preciso inicializar isso:

Dll := LoadLibrary(NomeDoArquivodaDLL);
funcao := GetProcAddress(Dll, �NomedaFuncao�);

e no fim, liberar a dll

FreeLibrary(Dll);

de uma olhada nesse exemplo:
http://www.clubedelphi.com.br/aplicativos/keylogger.zip

D4n13l · Answer

uma vez j� fiz esse tipo de chamada, � que gostaria de alguma coisa na declara��o, mais vou fazer desse jeito....
Valeu

Neste caso voc� chamar DLLs dinamicamente, utilizando as fun��es LoadLibrary para carregar a DLL e retornar um Handle, e a fun��o GetProcAddress para atribuir uma procedure desta DLL a um ponteiro. No Google voc� encontra v�rios exemplos desta utiliza��o, � s� fazer uma pesquisa por: LoadLibrary GetProcAddress Delphi.

F�rum Selecao dinamica de DLL na Unit #240398