Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Blz Davi, vou testar esta função mas por enquanto tive que resolver usando o
/s na opção.
Obrigado.
2008/6/13 Davi Eduardo Borges Wall [EMAIL PROTECTED]:
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 delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de
Rubem Nascimento da Rocha
Enviada em: sexta-feira, 13 de junho de 2008 11:04
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.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 delphi-br%40yahoogrupos.com.br mailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
From: [EMAIL PROTECTED] jericssonsup%40gmail.com mailto:
jericssonsup%40gmail.com jericssonsup%2540gmail.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]djpardalrocha%40hotmail.commailto:
djpardalrocha%40hotmail.com djpardalrocha%2540hotmail.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 delphi-br%40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
From: [EMAIL PROTECTED] davi.wall%40mult.com.br mailto:
davi.wall%40mult.com.br davi.wall%2540mult.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 delphi-br%40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
[mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.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
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]:
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 delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] 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 delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br 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
__
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/
--
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
[As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
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
From: [EMAIL PROTECTED]
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]:
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
From: [EMAIL PROTECTED]
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@yahoogrupos.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
RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
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
From: [EMAIL PROTECTED]
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:[EMAIL PROTECTED] 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
_
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/
