Se seu processo correr num laço, execute vez ou outra um 
"Application.ProcessMessages"... assim o Form "repinta" a tela numa boa...

  [s]

  ==========================
  Eduardo Jedliczka
  Apucarana - Pr
  ==========================

----- Original Message ----- 
From: "Alexandre Yahoo" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, April 15, 2005 11:10 AM
Subject: Re: [delphi-br] Refresh do Desktop



ai galera achei esse codigo no google:

procedure RefreshDesktop;
var
   hDesktop: HWND;
begin
   hDesktop := FindWindowEx(FindWindowEx(
     FindWindow('Progman', 'Program Manager'), 0,
     'SHELLDLL_DefView', ''), 0, 'SysListView32', '') ;
   PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0) ;
   PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31) ;
end;
vo testar pra ver c funciona...vlw
  ----- Original Message ----- 
  From: Alexandre Yahoo
  To: delphi-br@yahoogrupos.com.br
  Sent: Friday, April 15, 2005 11:03 AM
  Subject: [delphi-br] Refresh do Desktop


  Fala amigos delphianos, hj to com uma duvida mas acredito que naum seja 
muito dificil...c alguem puder me ajudar...vo aliar as mensagens daqui com 
minhas pesquisas by google hehehehe....
  eh o seguinte, tenho uma tela d cálculo q muitas vezes fica sem 
atualização....(nada mexe) e a proteção de tela do bendito do usuario entra 
pra ferrar a minha vida hehehehehe....gostaria de saber como eu faço para 
atualizar a minha tela pra que pelo menos quando saia da proteção naum fique 
aquela tela preta sem nada....o processo continua rodando por baixo...mas o 
usuario fica desesperado pq a tela fica congelada  e recorre ao velho e bom 
ctrl + alt + del e reporta isso como erro hehehehehe.....vlw....
  Alexandre Herrera
  Programador

  Tema Sistemas Ltda.
  Telefone: 55 (xx21) 2509-5293



  [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:
              PUBLICIDADE




------------------------------------------------------------------------------
  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!.




------------------------------------------------------------------------------


  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.9.6 - Release Date: 11/04/05


[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










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