Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi

2008-06-15 Por tôpico Jorge Ericsson 
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  [mailto:
> delphi-br@yahoogrupos.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 
> 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 >
> From: [EMAIL PROTECTED]   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] 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  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
> >
>
> --
> 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]
>
>  
>



-- 
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]

RES: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi

2008-06-13 Por tôpico Davi Eduardo Borges Wall 
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]

RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi

2008-06-13 Por tôpico Rubem Nascimento da Rocha 

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

2008-06-13 Por tôpico Jorge Ericsson 
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
>
> __
> 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

2008-06-12 Por tôpico Rubem Nascimento da Rocha 

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/

RES: [delphi-br] URGENTE: Registrar DLL pelo delphi

2008-06-12 Por tôpico Davi Eduardo Borges Wall 
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

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]

RE: [delphi-br] URGENTE: Registrar DLL pelo delphi

2008-06-12 Por tôpico Rubem Nascimento da Rocha 

Inclui a opção /S. Ela faz o registro de maneira silenciosa, sem pedir 
confirmação ou mostrar caixas de diálogo. Vi isso executando 'REGSVR32 /?' (sem 
as aspas simples) no aviso de comando do XP.
Sds.



From: [EMAIL PROTECTED]
Date: Thu, 12 Jun 2008 17:01:29 -0300
Subject: [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


_
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas 
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br

[delphi-br] URGENTE: Registrar DLL pelo delphi

2008-06-12 Por tôpico Jorge Ericsson 
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


[As partes desta mensagem que não continham texto foram removidas]