计划任务
核心源码
`
procedure TForm1.Button1Click(Sender: TObject);
begin
if Timer1.Enabled = true then // If timer is active
begin
Timer1.Enabled := false; // Disable it
sndPlaySound(nil, 0); // Stop playing the sound
Label3.Caption := 'Alarm stopped at: ’ + DateTimeToStr(Now);
// Update status
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// My time combines date and time values from two DateTimePicker
myTime := EncodeDateTime(YearOf(DateTimePicker1.DateTime),
MonthOf(DateTimePicker1.DateTime), DayOf(DateTimePicker1.DateTime),
HourOf(DateTimePicker2.DateTime), MinuteOf(DateTimePicker2.DateTime),
SecondOf(DateTimePicker2.DateTime),
MilliSecondOf(DateTime