Registrar DLL via código

Pessoal, faz tempo que não posto nada… correria. Mas hoje posto aqui um código que me ajudou muito. Como é sabido, a partir do Windows Vista os requisitos de segurança do sistema operacional complicam um pouco o registro de DLLs via código, do seu programa.

Pra isso, encontrei e adaptei um código, neste caso em Delphi, que achei na web. Ele permite executar uma instrução com direitos de administrador.  Com ela, para registar uma DLL ficaria assim:

 ExecutarComoAdministrador('regsvr32.exe','C:\MinhaDLL.dll');

.csharpcode, .csharpcode pre
{
font-size: small;
color: black;
font-family: consolas, “Courier New”, courier, monospace;
background-color: #ffffff;
/*white-space: pre;*/
}
.csharpcode pre { margin: 0em; }
.csharpcode .rem { color: #008000; }
.csharpcode .kwrd { color: #0000ff; }
.csharpcode .str { color: #006080; }
.csharpcode .op { color: #0000c0; }
.csharpcode .preproc { color: #cc6633; }
.csharpcode .asp { background-color: #ffff00; }
.csharpcode .html { color: #800000; }
.csharpcode .attr { color: #ff0000; }
.csharpcode .alt
{
background-color: #f4f4f4;
width: 100%;
margin: 0em;
}
.csharpcode .lnum { color: #606060; }

E o código da função, é visto a seguir:

procedure ExecutarComoAdministrador(Programa: string; Parametros: string; DiretorioInicial: string = ”);
var
  SEInfo: TShellExecuteInfo;
  ExecuteFile, ParamString, StartInString: string;
begin
  ExecuteFile:=Programa;
  ParamString := Parametros;
  FillChar(SEInfo, SizeOf(SEInfo), 0) ;
  SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
  with SEInfo do
  begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(ExecuteFile) ;
    lpParameters := PChar(ParamString) ;
    nShow := SW_SHOWNORMAL;
    lpVerb := PChar(‘Runas’);
  end;
  ShellExecuteEx(@SEInfo)
end;

.csharpcode, .csharpcode pre
{
font-size: small;
color: black;
font-family: consolas, “Courier New”, courier, monospace;
background-color: #ffffff;
/*white-space: pre;*/
}
.csharpcode pre { margin: 0em; }
.csharpcode .rem { color: #008000; }
.csharpcode .kwrd { color: #0000ff; }
.csharpcode .str { color: #006080; }
.csharpcode .op { color: #0000c0; }
.csharpcode .preproc { color: #cc6633; }
.csharpcode .asp { background-color: #ffff00; }
.csharpcode .html { color: #800000; }
.csharpcode .attr { color: #ff0000; }
.csharpcode .alt
{
background-color: #f4f4f4;
width: 100%;
margin: 0em;
}
.csharpcode .lnum { color: #606060; }

O segredo está na linha “lpVerb := PChar(‘Runas’);”. Ela faz com o que o diálogo de permissão de execução seja exibido, e uma vez confirmado, o código é executado como administrador.

Esse post foi publicado em Delphi e marcado , . Guardar link permanente.

Uma resposta para Registrar DLL via código

  1. Geovani A W disse:

    Obrigado por compartilhar seu conhecimento!
    Fiz no Delphi 7 e funcionou perfeitamente!
    Agora posso executar comandos como ADMINISTRADOR usando o Delphi!

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s