unit AutoShut1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Menus, AppEvnts, shellapi;type TForm1 = class(TForm) Timer1: TTimer; Timer2: TTimer; ApplicationEvents1: TApplicationEvents; PopupMenu1: TPopupMenu; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Btn_OK: TButton; Btn_Abort: TButton; procedure Timer1Timer(Sender: TObject); procedure TrayMe......
阅读全文