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

@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.

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

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

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

Решение

Решение

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

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