unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ShellAPI; // 要引用此单元 const WM_APPBAR_MESSAGE = WM_USER + 1; type TForm1 = class(TForm) Timer1: TTimer; Memo1: TMemo; pro…