Arsip: Mematikan Taskbar dan Tray Ikon


by delphi in Articles more 15 years ago 1613
Cara yang lain untuk memaksa User hanya menggunakan aplikasi kita adalah dengan menghilangkan Taskbar/Tray
Caranya adalah sebagai berikut:
procedure ShowTaskBar(bShow: Boolean);
begin
if bShow = True then
ShowWindow( FindWindow('Shell_TrayWnd',nil), SW_SHOWNA)
else
ShowWindow ( FindWindow('Shell_TrayWnd',nil), SW_HIDE);
end;

Jika Anda ingin men-disable Taskbar diatas, gunakan perintah :
  ShowTaskBar( False);

Jika Anda mau mengaktifkan kembali / normal, gunakan :
  ShowTaskBar( True);

Selain itu ada kode untuk membuat Taskbar tetap terlihat tapi tidak berfungsi. Anda coba kode berikut ini :
procedure EnableTaskBar(bShow: Boolean);
begin
  if bShow = True then
EnableWindow( FindWindow('Shell_TrayWnd',nil), TRUE)
else
EnableWindow( FindWindow('Shell_TrayWnd',nil), FALSE);
end;

Cara memakainya sama dengan Prosedure ShowTaskbar. Dan ini berlaku untuk Taskbar dan seluruh tombol aplikasi diatasnya, termasuk Start Menu

referensi:
http://razmal.blogspot.com/2005/01/seri-tips-pemrograman-delphi-tips.html
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com