如何使DELPHI程序运行在后台或能像输入法一样在状态栏小图标区

var
  nid:TNotifyIconData;
begin
  nid.cbSize:=sizeof(nid);
  nid.Wnd:=Handle;
  nid.uID:=0;
  nid.hIcon:=application.Icon.Handle;
  nid.szTip:='*****';
  nid.uCallbackMessage:=MY_MESSAGE;
  nid.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
  if not Shell_NotifyIcon(NIM_ADD,@nid) then
  begin
    application.MessageBox('找不到Shell32.dll文件!','警告',MB_OK+MB_ICONWARNING);
  end;