procedure hintwnd();
var H:HWND;
    Rec:TRect;
    HintForm:TForm;
    HintLabel:TLabel;
begin

  H := FindWindow('Shell_TrayWnd', nil);
  if h=0 then exit;

  GetWindowRect(h, Rec);
  HintForm:= TForm.Create(nil);
  HintForm.Width:=225;
  HintForm.Height:=75;

  HintForm.Color:=clSkyBlue;
  HintForm.BorderStyle:=bsNone;
  HintForm.FormStyle := fsStayOnTop;

  HintLabel:=TLabel.Create(nil);
  with HintLabel do
   begin
     Parent:=HintForm;

     WordWrap:=true;

     Caption:=msg;

     Align:=alClient;
     Layout:=tlCenter;
     Alignment:=taCenter;
   end;

  HintForm.AlphaBlend:=true;
  HintForm.AlphaBlendValue:=0;

  HintForm.Left:=Screen.Width-HintForm.Width;
  HintForm.Top:=Rec.Top-HintForm.Height;

  ShowWindow(HintForm.handle,SW_SHOWNOACTIVATE);

  while HintForm.AlphaBlendValue < 255 do
    begin
      HintForm.AlphaBlendValue := HintForm.AlphaBlendValue + 3;
      sleep(7);
      HintForm.repaint;
    end;

  Sleep(5000);

  while HintForm.AlphaBlendValue > 0 do
    begin
      HintForm.AlphaBlendValue := HintForm.AlphaBlendValue - 3;
      sleep(10);
    end;

  HintLabel.Free;
  HintForm.Free;
end;