【delphi】Windows10のアクションセンター

Windows10の右下にアクションセンターって、ありますよね。これです、これ。

こちらに、次のプログラムで、メッセージを送れます！

procedure TMainForm.FormCreate(Sender: TObject);
var
  dwExStyle : Cardinal;
  ANotification : TNotification;
begin
  ANotification := NotificationCenter1.CreateNotification;
  ANotification.Title := 'いえーい！' ;
  ANotification.AlertBody := 'ノーティフィケーションテストです！';
  NotificationCenter1.PresentNotification(ANotification);
end;

www.gesource.jp