Refesh Desktop

  • 主题发起人 主题发起人 import
  • 开始时间 开始时间
I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
I don't know if this will work - I haven't tried it, but effectively you could hide and then show the listview on the desktop (the desktop icons
reside in a transparent listview)
function GetDeskHandle(ArrivingHandle:hwnd;lparam:lparam):boolean;
var
cname:array[0..100] of char;
begin
result:=true;
getclassname(ArrivingHandle,cname,100);
if cname='SysListView32' then
DesktopListViewHandle:=ArrivingHandle;
end;
function GetDesktopListViewHandle: THandle;
begin
Result := FindWindow('ProgMan', nil);
DesktopListViewHandle:=0;
enumchildwindows(Result,@GetDeskHandle,0);
Result:=DesktopListViewHandle;
end;
procedure ShowDesktop(showit:boolean);
var
wnd:hwnd;
begin
wnd:=getdesktoplistviewhandle;
if showit then
showwindow(wnd,sw_shownormal)
else
showwindow(wnd,sw_hide);
end;
then just call ShowDesktop(false); ShowDesktop(true);
 
 
后退
顶部