Таймер до отключения компьютера

@FromOutSide · Регистрация: 04.09.2014

Студворк — интернет-сервис помощи студентам

Доброго времени суток. Недавно сделал таймер на отключение компьютера. Но беда в том, что выключается только по тому времени что записано в командах.
Выглядит примерно так

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Timer1Timer(Sender: TObject);
begin
maskedit1.text:=timetostr(time);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(handle, nil,'shutdown',' -s -t 600','', SW_SHOWNORMAL);
end;

Надо так чтоб в одно из полей было введено время по которому например должен отключится компьютер.
Делал так:

Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
Var time:real;
begin time:=maskedit2.text;
ShellExecute(handle, nil,'shutdown',' -s -t time','', SW_SHOWNORMAL);

но это не срабатывает. Я новичок в программировании. Помогите с проблемой, может что юзать надо.

@FIL · 11.12.2014, 23:34

Там задержка в секундах должна быть, а ты зачем-то текущее время пытаешься подставить.

@volvo · 12.12.2014, 00:02

Даже не текущее время, а слово 'time'

@FromOutSide · 12.12.2014, 06:07 **[ТС]**

Delphi
1
2
3
4
procedure TForm1.[COLOR="SeaGreen"]Button1Click[/COLOR](Sender: [COLOR="RoyalBlue"]TObject[/COLOR]);
Var [COLOR="Blue"]time:real;[/COLOR]
begin [COLOR="blue"]timer[/COLOR]:=maskedit2.[COLOR="rgb(46, 139, 87)"]text[/COLOR];
ShellExecute(handle, nil,[COLOR="red"]'shutdown'[/COLOR],[COLOR="red"]' -s -t time'[/COLOR],[COLOR="Red"]''[/COLOR], SW_SHOWNORMAL);

@volvo · 12.12.2014, 12:58

И чего? Что-то изменилось в коде? Сказали же: shutdown хочет не время выключения, а количество секунд между текущим временем и временем выключения, так что, как-то вот так:

Delphi
1
2
3
4
5
6
7
8
uses ..., DateUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
  sec : LongInt;
begin
  sec := SecondsBetween(Time(), StrToTime(MaskEdit2.Text));
  ShellExecute(handle, nil,'shutdown',' -s -t ' + IntToStr(sec),'', SW_SHOWNORMAL);
end;

@FromOutSide · 13.12.2014, 07:24 **[ТС]**

Код использовал, но программа не запускалась. Немного переделав, программа запустилась, а результат таков:
Открывается cmd тут же закрывается как и должно быть но когда время на компьютере или в maskedit1 совпадает с maskedit2, то ничего не происходит .

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
  sec : LongInt;
begin
 sec := SecondsBetween(Time(), StrToTime(MaskEdit1.Text));
  ShellExecute(handle, nil,'shutdown',' -s -t ','IntToStr(sec)', SW_SHOWNORMAL);
end;

@FIL · 13.12.2014, 11:42

Найди несколько отличий:

Сообщение от volvo

Delphi
1
ShellExecute(handle, nil,'shutdown',' -s -t ' + IntToStr(sec),'', SW_SHOWNORMAL);

Сообщение от FromOutSide

Delphi
1
ShellExecute(handle, nil,'shutdown',' -s -t ','IntToStr(sec)', SW_SHOWNORMAL);

@FromOutSide · 13.12.2014, 12:39 **[ТС]**

Попрошу заново прочитать мое описание проблемы того кода что прислал volvo.
"Код использовал, но программа не запускалась. Немного переделав, программа запустилась, а результат таков:
Открывается cmd тут же закрывается как и должно быть но когда время на компьютере или в maskedit1 совпадает с maskedit2, то ничего не происходит .

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
  sec : LongInt;
begin
 sec := SecondsBetween(Time(), StrToTime(MaskEdit1.Text));
  ShellExecute(handle, nil,'shutdown',' -s -t ','IntToStr(sec)', SW_SHOWNORMAL);
end;

"

@FromOutSide · 27.01.2015, 14:44 **[ТС]**

Можно было и не парится с таким вот вводом можно же сделать так!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, ExtCtrls,shellapi, Menus, Registry, XPMan;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    SaveDialog1: TSaveDialog;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Edit2: TEdit;
    Timer5: TTimer;
    Timer6: TTimer;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    XPManifest1: TXPManifest;
    Memo2: TMemo;
    Timer7: TTimer;
    Timer8: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure Timer8Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   b:tcaption;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
qw,er:string;
begin
memo1.lines.Clear;
b:=edit1.text;
er:='shutdown /s /t ';
qw:=er+b;
memo1.lines[0]:=qw;
memo1.lines.SaveToFile('.bat');
begin
timer1.Enabled:=true;
end;end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
er:string;
begin
er:='shutdown /a';
memo1.lines[0]:=er;
memo1.lines.SaveToFile('.bat');
begin
timer3.Enabled:=true;
end;end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShellExecute (Form1.Handle, nil, '.bat', nil, nil, SW_RESTORE);
timer2.Enabled:=true;
timer1.Enabled:=false;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
deletefile('.bat');
timer2.Enabled:=false;
end;
 
procedure TForm1.Timer3Timer(Sender: TObject);
begin
ShellExecute (Form1.Handle, nil, '.bat', nil, nil, SW_RESTORE);
timer4.Enabled:=true;
timer3.Enabled:=false;
end;
 
procedure TForm1.Timer4Timer(Sender: TObject);
begin
deletefile('.bat');
timer4.Enabled:=false;
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9',#8]) then
Key:=#0;
end;
 
procedure TForm1.Edit1Click(Sender: TObject);
begin
Timer7.Enabled:=true;
edit1.text:='';
if edit1.text='' then Timer7.Enabled:=false;
timer5.enabled:=false;
edit2.text:='Здесь укажется в минутах';
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9',#8]) then
Key:=#0;
end;
 
procedure TForm1.Edit2Click(Sender: TObject);
begin
edit2.text:='';
end;
 
procedure TForm1.N3Click(Sender: TObject);
var reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.openkey('software\microsoft\windows\currentversion\run', false);
  reg.DeleteValue(application.title);
  reg.closekey;
  reg.free;
end;
 
 
procedure TForm1.N2Click(Sender: TObject);
var reg: tregistry;
begin
reg := tregistry.create;
reg.rootkey :=HKEY_CURRENT_USER;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentversion\run', false);
reg.writestring(Application.Title, Application.ExeName);
reg.closekey;
reg.free;
end;
 
procedure TForm1.Timer5Timer(Sender: TObject);
var
ed2:string;
ed0,res:real;
begin
ed2:=' â ìèíóòàõ';
ed0:=strtofloat(edit1.text);
res:=ed0 / 60;
edit2.text:=floattostr(res)+ed2;
end;
 
procedure TForm1.Timer6Timer(Sender: TObject);
begin
if edit1.text='Пишите время в секундах' then timer5.enabled:=false else
if edit1.text='' then timer5.enabled:=false else timer5.enabled:=true;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
BorderIcons := BorderIcons - [biMaximize];
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
showwindow(Application.Handle, sw_hide);
end;
 
procedure TForm1.Timer7Timer(Sender: TObject);
begin
if Length(Memo2.Text) = 0 then timer5.enabled:=false;
if Memo2.Lines.Count <> 0 then timer5.enabled:=true;
end;
 
procedure TForm1.Timer8Timer(Sender: TObject);
begin
memo2.lines[0]:=edit1.text;
end;
 
end.

И сама форма

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
object Button1: TButton
  Left = 0
  Top = 0
  Width = 73
  Height = 25
  Caption = #1042#1082#1083#1102#1095#1080#1090#1100
  TabOrder = 0
  OnClick = Button1Click
end
object Edit1: TEdit
  Left = 0
  Top = 24
  Width = 145
  Height = 21
  MaxLength = 8
  TabOrder = 1
  Text = #1055#1080#1096#1080#1090#1077' '#1074#1088#1077#1084#1103' '#1074' '#1089#1077#1082#1091#1085#1076#1072#1093
  OnClick = Edit1Click
  OnKeyPress = Edit1KeyPress
end
object Memo1: TMemo
  Left = 0
  Top = 72
  Width = 145
  Height = 21
  ReadOnly = True
  TabOrder = 2
  Visible = False
end
object Button2: TButton
  Left = 72
  Top = 0
  Width = 73
  Height = 25
  Caption = #1054#1090#1084#1077#1085#1080#1090#1100
  TabOrder = 3
  OnClick = Button2Click
end
object Edit2: TEdit
  Left = 0
  Top = 48
  Width = 145
  Height = 21
  ReadOnly = True
  TabOrder = 4
  Text = #1047#1076#1077#1089#1100' '#1091#1082#1072#1078#1077#1090#1089#1103' '#1074' '#1084#1080#1085#1091#1090#1072#1093
  OnClick = Edit2Click
  OnKeyPress = Edit2KeyPress
end
object Memo2: TMemo
  Left = 0
  Top = 89
  Width = 113
  Height = 24
  ReadOnly = True
  TabOrder = 5
  Visible = False
end
object SaveDialog1: TSaveDialog
  Left = 152
  Top = 8
end
object OpenDialog1: TOpenDialog
  Left = 168
  Top = 8
end
object Timer1: TTimer
  Enabled = False
  OnTimer = Timer1Timer
  Left = 200
  Top = 8
end
object Timer2: TTimer
  Enabled = False
  OnTimer = Timer2Timer
  Left = 232
  Top = 8
end
object Timer3: TTimer
  Enabled = False
  OnTimer = Timer3Timer
  Left = 200
  Top = 40
end
object Timer4: TTimer
  Enabled = False
  OnTimer = Timer4Timer
  Left = 232
  Top = 40
end
object Timer5: TTimer
  Enabled = False
  OnTimer = Timer5Timer
  Left = 264
  Top = 8
end
object Timer6: TTimer
  OnTimer = Timer6Timer
  Left = 264
  Top = 40
end
object MainMenu1: TMainMenu
  Left = 176
  Top = 72
  object N1: TMenuItem
    Caption = #1052#1077#1085#1102' '#1090#1072#1081#1084#1077#1088#1072
    object N2: TMenuItem
      Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1072#1074#1090#1086#1079#1072#1091#1087#1091#1089#1082' '#1087#1088#1086#1075#1088#1072#1084#1084#1099
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1080#1079' '#1072#1074#1090#1086#1079#1072#1087#1091#1089#1082#1072' '#1087#1088#1086#1075#1088#1072#1084#1084#1091
      OnClick = N3Click
    end
  end
end
object XPManifest1: TXPManifest
  Left = 64
  Top = 64
end
object Timer7: TTimer
  Enabled = False
  OnTimer = Timer7Timer
  Top = 112
end
object Timer8: TTimer
  OnTimer = Timer8Timer
  Left = 32
  Top = 112
end

@FromOutSide · 12.04.2015, 22:33 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, ExtCtrls,shellapi, Menus, Registry, XPMan;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Button2: TButton;
    Edit2: TEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    XPManifest1: TXPManifest;
    Timer5: TTimer;
    Timer6: TTimer;
    Timer2: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines[0]:='shutdown /s /t '+edit1.text;
memo1.lines.SaveToFile('Activation disconnect your computer.bat');
ShellExecute(Form1.Handle, nil,'Activation disconnect your computer.bat',nil,nil,SW_RESTORE);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.lines[0]:='shutdown /a';
memo1.lines.SaveToFile('Deactivation disconnect your computer.bat');
ShellExecute(Form1.Handle,nil,'Deactivation disconnect your computer.bat',nil,nil,SW_RESTORE);
if (Length(edit1.text)=0) then edit1.text:='Ïèøèòå âðåìÿ â ñåêóíäàõ';
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not(Key in['0'..'9'])then Key:=#0;
end;
 
procedure TForm1.Edit1Click(Sender: TObject);
begin
edit1.text:='';
timer5.enabled:=false;
timer2.enabled:=false;
edit2.text:='Çäåñü óêàæåòñÿ â ìèíóòàõ';
end;
 
procedure TForm1.N3Click(Sender: TObject);
var reg:TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.openkey('software\microsoft\windows\currentversion\run',false);
  reg.DeleteValue(application.title);
  reg.closekey;
  reg.free;
end;
 
procedure TForm1.N2Click(Sender: TObject);
var reg:tregistry;
begin
reg:=tregistry.create;
reg.rootkey:=HKEY_CURRENT_USER;
reg.lazywrite:=false;
reg.openkey('software\microsoft\windows\currentversion\run',false);
reg.writestring(Application.Title,Application.ExeName);
reg.closekey;
reg.free;
end;
 
procedure TForm1.Timer5Timer(Sender: TObject);
begin
edit2.text:=inttostr(strtoint(edit1.text)div 60)+' â ìèíóòàõ';
end;
 
procedure TForm1.Timer6Timer(Sender: TObject);
var  i:integer;
begin
{i:=StrToInt(edit1.text);
if (edit1.text='Ïèøèòå âðåìÿ â ñåêóíäàõ') or (Length(edit1.text)=0) then
timer2.Enabled:=false else begin
if i>3599 then timer2.Enabled:=true else
begin}
if (edit1.text='Ïèøèòå âðåìÿ â ñåêóíäàõ') or (Length(edit1.text)=0) or (i<3600)
then timer5.enabled:=false else timer5.enabled:=true;
if (edit1.text='Ïèøèòå âðåìÿ â ñåêóíäàõ') or (Length(edit1.text)=0)
then button1.enabled:=false  else button1.enabled:=true;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
BorderIcons:=BorderIcons-[biMaximize];
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
showwindow(Application.Handle,sw_hide);
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
edit2.text:=inttostr((strtoint(edit1.text)div 60)div 60)+' â ÷àñàõ';
end;
 
end.

код переделан очень давно забыл выкласть)

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

Таймер до отключения компьютера

Решение

Решение

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	11.12.2014, 23:34
	Там задержка в секундах должна быть, а ты зачем-то текущее время пытаешься подставить. 0

@volvo Супер-модератор 33421 / 21527 / 8240 Регистрация: 22.10.2011 Сообщений: 36,935 Записей в блоге: 12
	12.12.2014, 00:02
	Даже не текущее время, а слово 'time' 0