Tenta colocar a linha setactivewindow(application.handle);

Depois vc me diz se funcionou.


 -----Mensagem original-----
De: Futura System Informática [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 1 de março de 2005 16:09
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Problema de Focus


  Galera é o seguinte eu tenho um sistema que faz Download e Upload via FTP,
os arquivos que são recebidos e enviados estão zipados, eu uso o seguinte
comando para zipar:

  WinExec(PChar('c:\Arquivos de Programas\WinZip\WinZip32 -min -a -r "NOME
DO ARQUIVO.ZIP'" '+'PASTA DESTINO),SW_HIDE);

  e esse para descompactar:

  WinExec(PChar('c:\Arquivos de Programas\WinZip\WinZip32 -min -e "NOME DO
ARQUIVO.ZIP+'" '+'PASTA DESTINO'),SW_HIDE);

  O problema é que quando rodo esses comando o sistema sai de focu, e não
mostra mais as outras mensagem que disparo para o form, a tela simplesmente
fica em branco até o final do processo, alguém já passou por isso, agradeço
qualquer ajuda.

  Sérgio Toshio Kawahara

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



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



        Yahoo! Grupos, um serviço oferecido por:







----------------------------------------------------------------------------
--
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 



Responder a