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; |
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Você precisa fazer o login para publicar um comentário.
Não funcionou com a brysignercom.dll
Estranho, iremos verificar se há algum ajuste a ser realizado.
Com a capicom.dll tbm n funcionou