18 Aug

Hide / show all icons on desktop

Another “one-line code trick” and probably completely useless. :) 

procedure TForm1.Button1Click(Sender: TObject);
//hide desktop icons
begin
  ShowWindow(FindWindow(nil, 'Program Manager'),SW_HIDE);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
//show desktop icons
begin
  ShowWindow(FindWindow(nil, 'Program Manager'),SW_SHOW);
end;
  • Digg
  • del.icio.us
  • Facebook
  • Technorati
  • Google
  • Live
  • YahooMyWeb

Posted on Saturday, August 18th, 2007 at 9:27 pm under System .

« Animate application icon (on taskbar and apllication window)
Simulate mouse moves and clicks »

Leave a Reply

You must be logged in to post a comment.