Sunday, April 22, 2012

Menampilkan & Menyembunyikan Windows Taskbar


Fungsi yang digunakan:
/ / Menyembunyikan Taskbar
ShowWindow (FindWindow ('Shell_TrayWnd',''), SW_HIDE);
/ / Menampilkan Taskbar
ShowWindow (FindWindow ('Shell_TrayWnd',''), SW_SHOW);

Contoh Implementasi:
/ / Menyembunyikan Taskbar
procedure TForm1.Button1Click (Sender: TObject);
begin
   ShowWindow (FindWindow ('Shell_TrayWnd',''), SW_HIDE);
end;
/ / Menampilkan Taskbar
procedure TForm1.Button2Click (Sender: TObject);
begin
   ShowWindow (FindWindow ('Shell_TrayWnd',''), SW_SHOW);
end;

1 comment: