!**************************************
! Name: Show Hide Star Windows
! Description : menghilangkan or memunculkan
! button star windows
! copyright : Maggot #10
! www.master.ac.id
!**************************************
 
1. Tambahkan dua buah komponen Button
2. Listing pada masing-masing Button :
procedure TForm1.Button1Click(Sender: TObject);
begin
      ShowWindow(GetWindow(FindWindow('Shell_traywnd', NiL), 5), 0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
      ShowWindow(GetWindow(FindWindow('Shell_traywnd', NiL), 5), 9);
end;