www.pudn.com > 自动计划（autoplan）源代码___强烈推荐 .rar > Unt_Time.pas

unit Unt_Time; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ComCtrls, ExtCtrls; 
const 
   WM_CLOSEPLAN  = WM_USER + 444; 
   WM_CLOSECOMPUT = WM_USER + 666; 
type 
  TForm1 = class(TForm) 
    Timer1: TTimer; 
    DateTimePicker1: TDateTimePicker; 
    Button1: TButton; 
    procedure FormCreate(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure Timer1Timer(Sender: TObject); 
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
  private 
    { Private declarations } 
  public 
    AHandle:THandle; { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  DateTimePicker1.Time := Time; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Timer1.Enabled := true; 
end; 
 
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  Caption := '现在时间' + TimeToStr(time) + 
             'dt' + TimeToStr(DateTimePicker1.Time); 
 
  if (Time) >= StrToTime(FormatDateTime('HH:MM:SS',DateTimePicker1.DateTime)) then 
  BEGIN 
    PostMessage( AHandle,WM_CLOSECOMPUT,0,0); //第一个零表示按照默认方式关机 
  END; 
end; 
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
begin 
   PostMessage( AHandle,WM_CLOSEPLAN,0,0);   //停止任务 
end; 
 
end.