sid=25730;channel=29869;w=336;h=280;wmid=1079;doma in ="yenifrm.com";kategori ="16";gosterim="T";adsrv=1;arkaplan="FFFFFF";basli k="FF0000";aciklama="000000";kenarlik="FF0000";jsa i="9e621a937d7041b1";
//görev çubuğunu göster gizle işlemi \\
//formunuza 2 tane buton koyun \\

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE); //gizle
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW); //göster
end;