Pessoal, tenho um sistema com módulos em dlls. De repente, sem mais nem
menos algumas máquinas não abrem mais as dlls. É como se as dlls não
existissem na pasta do sistema. A dll é chamada como no exemplo :
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/
