Ae Eduardo Silva, olha coloquei a linha logo abaixo do comando WinExec, mas 
continua o mesmo problema será que coloquei no lugar errado.

Sérgio Toshio Kawahara
  ----- Original Message ----- 
  From: Eduardo Silva ® 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 01, 2005 4:15 PM
  Subject: RES: [delphi-br] Problema de Focus


  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]



        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