Fórum Como fazer um Refresh no desktop #173625

07/08/2003

0

Delphi

Estou precisando do comando que faza a mesma função da tecla F5 mas para atualizar o desktop, não o formulario..


Hugomauricio

Hugomauricio

Responder

Posts

21/04/2004

Counter-strike

[b:2e04e71f28]estou procurando essa fução tambem por favor me avize se vc achou[/b:2e04e71f28]

msn e email :alexnewpoint@hotmail.com
icq:294623396


Responder

Gostei + 0

12/05/2004

Adilsond 

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;


ou

Procedure RefreshDesktop; 
var
  WNDClass: array[0..50] of Char;
begin
  StrPCopy(@WndClass[0],´Progman´);
  ShowWindow(FindWindow(@WndClass[0],nil),sw_Restore);
end;



Responder

Gostei + 0

12/05/2004

Adilsond

Outra maneira:

uses ShlObj;

procedure TForm1.Button1Click(Sender: TObject);
begin
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar