Saturday, January 8, 2011

Refresh Desktop

procedure RefreshDesktop;
var
  desktopHwnd: hWnd;
  s: String;
begin
 //Handle Desktop
 desktopHwnd:= FindWindow('ProgMan', nil);
 desktopHwnd:= GetWindow(desktopHwnd, GW_CHILD);
 desktopHwnd:= GetWindow(desktopHwnd, GW_CHILD);
 SetLength(s, 40);
 GetClassName(desktopHwnd, PChar(S), 39);
 if PChar(S) <> 'SysListView32' then desktopHwnd := 0;
 //Refresh
 PostMessage(desktopHwnd, WM_KEYDOWN, VK_F5, 0);
 PostMessage(desktopHwnd, WM_KEYUP, VK_F5, 1 shl 31);
 SendMessage(desktopHwnd, WM_COMMAND, $A065, 0);
 InvalidateRect(desktopHwnd, nil, True);
end;
 
 
Contoh implementasi:
procedure TForm1.Button1Click(Sender: TObject);
begin
  RefreshDesktop;
end;
 
 
 
 
 

0 comments:

Post a Comment

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Kang Iwan K-sev | Thank's for your visit To My Site - Ridwan Mulyana | Cibeureum