Como verificar se uma Dll está registrada no Windows? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como verificar se uma Dll está registrada no Windows?

 

Depois de muita pesquisa na internet e de várias tentativas,
consegui montar uma função simples que verifica se uma dll
está registrada no Windows.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
{ É necessário estar declarado Windows na seção uses.
 Para testar o exemplo declare também SysUtils.
 
 Em versões mais recentes declare Winapi.Windows e
 System.SysUtils. }
function IsDllRegistered(dllName : String) : Boolean;
var
  hModule : LONG;
begin
  Result := False;
 
  // Em versões antigas coloque PChar no lugar de PWideChar.
  hModule := LoadLibrary(PWideChar(dllName)); 
 
  if (hModule > 32) Then
  begin
    FreeLibrary(hModule);
    Result := True;
  end
end;
 
// Exemplo de uso
procedure TForm1.Button1Click(Sender: TObject);
begin
  TrueBoolStrs := ['Verdadeiro'];
  FalseBoolStrs := ['Falso'];
  ShowMessage( BoolToStr( IsDllRegistered('midas.dll'), True ) );
end;
Facebook Comments

Posts Relacionados

  • Administrador
  • 3.212 views
  • 2 comentários
  • 13 de março de 2015

2 respostas para “Como verificar se uma Dll está registrada no Windows?”

  1. Rafael disse:

    Não funcionou com a brysignercom.dll

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados