Cara menyembunyakan/menampilkan icon tanggal di TaskBar dan Control Panel gimana ya ? Trim's

Coba skrip berikut :

function ShowTrayClock(bValue: Boolean) : Boolean;
var
  TrayWnd, TrayNWnd, ClockWnd: HWND;
begin
  TrayWnd  := FindWindow('Shell_TrayWnd', nil);
  TrayNWnd := FindWindowEx(TrayWnd, 0, 'TrayNotifyWnd', nil);
  ClockWnd := FindWindowEx(TrayNWnd, 0, 'TrayClockWClass', nil);
  Result := IsWindow(ClockWnd);
  if Result then
  begin
    ShowWindow(ClockWnd, Ord(bValue));
    PostMessage(ClockWnd, WM_PAINT, 0, 0);
  end;
end;

tambah kan tombol, untuk menghilangkan :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowTrayClock(Boolean(0));
end;

untuk memunculkan kembali :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowTrayClock(Boolean(1));
end;

Ma kaci ya kaka-delphi. Ane mau coba dulu nich !

Mas, listingnya udah ane coba tuch dan bisa. Tapi kenapa kalau diklick di daerah jamnya(ditaskbark) kok masih berfungsi ya ... Dan yang dicontrol panel kok ngak hilang ??? Ma kasih sebelumnya.

Lho khan minta nya di sembunyikan ..... :roll: Klo mo di hilangkan, gampang aja, tinggal ganti aja message nya jadi WM_CLOSE ato WM_DESTROY

...
  if Result then
  begin
    //ShowWindow(ClockWnd, Ord(bValue));
    PostMessage(ClockWnd, WM_DESTROY, 0, 0);
  end;
....

Nyambung lagi ni mas .... 1. Ane udah coba, yang bisa hanya pakai WM_CLOSE pakai WM_DESTROY ngak berhasil. 2. Kenapa yang dicontrol panel ngak hilang juga ya mas ? 3. Untuk mengembalikan icon-nya gimana mas, pakai ShowTrayClock(Boolean(1)) ngak bisa.

Masa sich .... diriku kok bisa yach ... :D Klo uda di CLOSE ato DESTROY ya ga bisa pake perintah itu lagi dunk ... soalnya Handle window nya udah ga ada ... :P CMIIW

listing yang kemarin berlaku juga untuk yang di control panel ya mas ( Ane pakai windows 2003 mas )

Ooo ... untuk yang control panel, beda lagi .. untuk menghilangkan list control panel, silahkan buat koding untuk manipulasi registry, dan registry yang musti di manipulasi adalah KEY : [HKEY_CURRENT_USER\Control Panel\don't load] disana kamu cantumkan applet apa yang akan dihilangkan .. misal : 'timedate.cpl' Buat string value yang baru dengan nama 'timedate.cpl' dan isi valuenya dengan 'no'. Tanpa tanda kutip OKe ... semoga berhasil .... :D