Thursday, 5 April 2012

Menampilkan dan Menyembunyikan Taksbar Windows dengan Delphi

tau taksbar kan???
yang itu loooooo.... tau kan???heee.....

nahh.... kali ini saya akan postingin cara menyembunyikan dan menampilkan taksbar yang ada di windows.



untuk desain programnya macem itu, kalo mau di desain lebih menarik juga boleh (terserah enaknya gimana), yang penting jalan.heee.....

untuk kode di tombol hidden (event onclick), silahkan letakkan kode di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
var
   hTaskBar :Thandle;
begin
     hTaskBar := FindWindow('Shell_TrayWnd',Nil);
ShowWindow(hTaskBar,Sw_Hide);
end; 

untuk di tombol Show, letakkan kode ini :

procedure TForm1.Button2Click(Sender: TObject);
var
hTaskBar :Thandle;
begin
hTaskBar := FindWindow('Shell_TrayWnd',Nil); ShowWindow(hTaskBar,Sw_Normal);
end;

selesai sudah.....
gampang bukan????

jangan lupa komentarnya...!!!
terima kasih.........

0 comments:

UbaidRahman