Como fazer um Refresh no desktop

Delphi

07/08/2003

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


Hugomauricio

Hugomauricio

Curtidas 0

Respostas

Counter-strike

Counter-strike

07/08/2003

[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


GOSTEI 0
Adilsond

Adilsond

07/08/2003

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;



GOSTEI 0
Adilsond

Adilsond

07/08/2003

Outra maneira:

uses ShlObj;

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


GOSTEI 0
POSTAR