Colocar icones no taskbar(ao lado do relógio)

{Acrescente a unit ShellApi à cláusula Uses. Declare TaskIcon:
TNotifyIconData; na seção var.· Adicionar o icone:}

Begin
with TaskIcon do beginWnd:= Form1.Handle;uID:= 1;uFlags:= NIF_ICON or NIF_TIP;hIcon:= Form1.Icon.Handle;szTip:= 'Form1.Caption';cbSize:= SizeOf(TaskIcon);end;Shell_NotifyIcon(NIM_ADD, @TaskIcon);end; · Modificar o Icone:BeginTaskIcon.hIcon:= Image1.Picture.Icon.Handle;Shell_NotifyIcon(NIM_MODIFY, @TaskIcon);end; · Remover o Icone do TaskBar:BeginShell_NotifyIcon(NIM_DELETE, @TaskIcon);
end;