1   
2   unit Unit1;
3   
4   interface
5   
6   uses
7     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
8     Dialogs, StdCtrls;
9   
10  type
11    TForm1 = class(TForm)
12      Button1: TButton;
13      Button2: TButton;
14      procedure Button1Click(Sender: TObject);
15      procedure Button2Click(Sender: TObject);
16    private
17      { Private declarations }
18    public
19      { Public declarations }
20    end;
21  
22  var
23    Form1: TForm1;
24  
25  implementation
26  
27  {$R *.dfm}
28  
29  procedure TForm1.Button1Click(Sender: TObject);
30  begin
31  //Hide the Desktop icons
32  ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE); 
33  end;
34  
35  procedure TForm1.Button2Click(Sender: TObject);
36  begin
37  //Show the Desktop icons
38  ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);
39  end;
40  
41  end.