Re: [delphi-br] Programa não abre dll

Fri, 08 May 2009 05:23:07 -0700 

As dll's são chamadas com GetProcAddress. Descobri que o problema acontece 
quando coloco no BUILD WITH RUNTIME PACKAGES a unit de uns componentes que 
eu mesmo desenvolvi. Segue abaixo um exemplo da chamada da dll.


procedure TForm1.Button1Click(Sender: TObject);
type TAbreTela = procedure;

var AbreTela : TAbreTela;
    Instancia : THandle;
begin
   Instancia := LoadLibrary('MinhaDll');
   @AbreTela := GetProcAddress(Instancia, 'AbreMinhaDll');
  //O erro ocorre aqui.A variável fica sem valor

   if (@AbreTela <> nil) then
      AbreTela
   else
      ShowMessage('Não foi possível abrir o módulo!');
end; 

__________________________________________________
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/

Responder a