Aí! 500 pila a solução pronta. Aproveita que hoje estou generoso! Pode depositar nessa conta HSBC - 018-112888-8 !!!!
function TFormMain.RegisterActiveXServer(const ServerLocation: string; Register: Boolean): Boolean; var ServerDllRegisterServer: function: HResult; stdcall; ServerDllUnregisterServer: function: HResult; stdcall; ServerHandle: THandle; procedure UnloadServerFunctions; begin @ServerDllRegisterServer := nil; @ServerDllUnregisterServer := nil; FreeLibrary(ServerHandle); end; function LoadServerFunctions: Boolean; begin Result := False; ServerHandle := SafeLoadLibrary(ServerLocation); if (ServerHandle <> 0) then begin @ServerDllRegisterServer := GetProcAddress(ServerHandle, 'DllRegisterServer'); @ServerDllUnregisterServer := GetProcAddress(ServerHandle, 'DllUnregisterServer'); if (@ServerDllRegisterServer = nil) or (@ServerDllUnregisterServer = nil) then UnloadServerFunctions else Result := True; end; end; begin Result := False; try if (LoadServerFunctions) then try case (Register) of False: Result := ServerDllUnregisterServer = S_OK; True: Result := ServerDllRegisterServer = S_OK; end; finally UnloadServerFunctions; end; except end; end; De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: sexta-feira, 13 de junho de 2008 11:04 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Prioridade: Alta Então, verifique um projeto de exemplo na pasta $(DELPHI)\Demos\ActiveX chamadp TRegExpr.dpr. O código fonte desse projeto tem o que vc precisa pra fazer o registro de DLLs (lógico, desde que as DLLs sejam do tipo COM!). Sds. ________________________________ To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> From: [EMAIL PROTECTED] <mailto:jericssonsup%40gmail.com> Date: Fri, 13 Jun 2008 01:10:14 -0300 Subject: Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o registro simultâneo em vários processos, está apresentando problemas e em algumas não sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma. 2008/6/12 Rubem Nascimento da Rocha <[EMAIL PROTECTED] <mailto:djpardalrocha%40hotmail.com> >: > > Mas se ele fizer assim: > > WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'), > SW_NORMAL); > > registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de > diálogo! > > Sds. > > ________________________________ > > To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > From: [EMAIL PROTECTED] <mailto:davi.wall%40mult.com.br> > Date: Thu, 12 Jun 2008 17:58:58 -0300 > Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi > > > Para fazer isso sem chamar o executável vc tem que chamar o procaddress > referente ao método DLLRegisterServer da DLL que vc quer registrar. > > De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > [mailto: > delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] Em > nome de > Jorge Ericsson > Enviada em: quinta-feira, 12 de junho de 2008 17:01 > Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi > > Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa, > mas não gostaria de utilizar o comando > > WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'), > SW_NORMAL); > > Porque nesse caso registra mais fica a tela de confirmação pro usuário. > > Se não me engano tem uma utni que faz isso, mas não estou encontrando a > danada... > > Alguém já passou por esse problema e poderia ajudar-me ??? > > Valew, > > Jorge Ericsson S. Pinheiro > Analista/Projetista de Sistemas > Ericsson Sistemas e Soluções > http://www.jericsson.com.br > 61 9227.4785 / 3967.6172 > Brasília - DF > -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF __________________________________________________________ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack [As partes desta mensagem que não continham texto foram removidas]