Практическая работа №7.Работа с системным временем компьютера
Цель работы: Разработать программу для работы с системным временем компьютера
Краткие теоретические сведения: В работе представлены алгоритмы, позволяющие работать с такими ресурсами ОС, как планировщик заданий, запуск приложений по времени. Показана возможность выключения ПК по таймеру;
Формулировка задания: Разработать программу с помощью компонентов DateTimePicker,Edit(строка ввода),Bevel(создание рамок и отдельных линий оформления),Button(командная кнопка),ChechBox,Image(вывод на поверхность формы иллюстраций),Timer(время),OpenDialog(выбор файла с целью последующего открытия),UpDown,XPManifest.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg, XPMan,ShellApi;
type
TForm1 = class(TForm)
XPManifest1: TXPManifest;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Button3: TButton;
UpDown1: TUpDown;
UpDown2: TUpDown;
Edit1: TEdit;
Edit2: TEdit;
Timer1: TTimer;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
DateTimePicker3: TDateTimePicker;
Timer2: TTimer;
Label7: TLabel;
Timer3: TTimer;
Label8: TLabel;
Label9: TLabel;
Button20: TButton;
Edit13: TEdit;
OpenDialog1: TOpenDialog;
DateTimePicker4: TDateTimePicker;
Timer4: TTimer;
Bevel4: TBevel;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
Label10: TLabel;
DateTimePicker5: TDateTimePicker;
Button4: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure openprog(i:string);
procedure Button20Click(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Timer4Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
min:integer;
sec:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
image1 .Visible:=true;
label1.Visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
image1.Visible:=false;
label1.Visible:=false;
end;
procedure ShowTime;
var
buf:string[20];
begin
buf:='Таймер';
if min<10 then
buf:=buf+'0'+IntToStr(min)+':'
else
buf:=buf+IntToStr(min)+':';
if sec<10 then
buf:=buf+'0'+IntToStr(sec)
else
buf:=buf+IntToStr(sec);
Form1.Caption:=buf;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
sec:=sec-1;
if(min=0)and(sec=0)then
begin
Timer1.Enabled:=False;
UpDown1.Enabled:=true;
UpDown2.Enabled:=true;
Edit1.Enabled:=true;
Edit2.Enabled:=true;
Button3.Caption:='Пуск';
ShowMessage('Заданный интервал истек!');
exit;
end;
if (sec=0)and(min>0)then
begin
sec:=60;
min:=min-1;
end;
ShowTime;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if Form1.Timer1.Enabled then begin
Timer1.Enabled:=False;
Form1.Caption:='Таймер';
Button1.Caption:='Пуск';
UpDown1.Enabled:=True;
UpDown2.Enabled:=True;
Edit1.Enabled:=True;
Edit2.Enabled:=True;
end
else
begin
min:=UpDown1.Position;
sec:=UpDown2.Position;
if(sec=0) and (min=0) then
begin
ShowMessage('Надо задать интервал!');
exit;
end;
Edit1.Enabled:=False;
Edit2.Enabled:=False;
UpDown1.Enabled:=False;
UpDown2.Enabled:=False;
Button1.Caption:='Стоп';
Timer1.Enabled:=True;
ShowTime;
end;
end;
procedure TForm1.openprog(i:string);
begin
ShellExecute(TForm(Owner).Handle,nil,PCHAR(i),nil,nil,SW_SHOWNORMAL);
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
label8.Caption:=Timetostr(time);
if(label8.caption)=timetostr(DateTimePicker1.Time)then
openprog(Edit5.text);
if(label8.caption)=timetostr(DateTimePicker2.Time)then
openprog(Edit3.text);
if(label8.caption)=timetostr(DateTimePicker3.Time)then
openprog(Edit4.text);
end;
procedure TForm1.Button20Click(Sender: TObject);
begin
if OpenDialog1.Execute then Edit13.Text:=OpenDialog1.FileName;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
if(label8.caption)=timetostr(DateTimePicker4.time)then
ShellExecute(handle,'open',pchar(Edit13.Text),nil,nil,SW_SHOWNORMAL);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
if(label8.caption)=timetostr(DateTimePicker1.Time)then
end;
end.