Выключение компьютера через определенное время

[V@mpir]

Вот решил написать незамысловатую программку, служащую для того что бы отключать компьютер через определенное время. Но столкнулся с некой проблемой. При попытке компиляции вылетает ошибка.
В чем дело не могу понять. Сразу хочу отметить, что код самописный (это заметно))) и хотелось бы его оставить (основу) таким же. Если можно то желательно что бы проблема была указан в данном коде, а не был предложен другой, возможно даже и лучший, и более удобный вариант программы.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI,ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var n,u,i,o,r,y,t:integer;
b,c,v:boolean;
begin
b:=(edit1.Text='');
c:=(edit2.Text='');
v:=(edit3.Text='');
u:=strtoint(edit1.Text);
i:=strtoint(edit2.Text);
o:=strtoint(edit3.Text);
if b then
u:=0;
if c then
i:=0;
if v then
o:=0;
r:=u*60*60*1000;
y:=i*60*1000;
t:=o*1000;
n:=r+y+t;
timer1.Enabled:=true;
timer1.Interval:=n;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShellExecute(handle, nil,'shutdown',' -s -t 00','', SW_SHOWNORMAL);
end;

end.

Заранее спасибо!

[NuMeR]

ShellExecute(handle, 'OPEN',...)
и нужно заменить

u:=strtoint(edit1.Text);
i:=strtoint(edit2.Text);
o:=strtoint(edit3.Text);
if b then
u:=0;
if c then
i:=0;
if v then
o:=0;

на

if b then
u:=0 else u:=strtoint(edit1.Text);
if c then 
i:=0 else i:=strtoint(edit2.Text);
if v then
o:=0 else o:=strtoint(edit3.Text);

p.s.в параметры лучше добавить -f

[V@mpir]

Хм.. я сделал как ты порекомендовал эффект - нуль. А вот на счет это точно можно было не беспокоиться

ShellExecute(handle, nil,'shutdown',' -s -t 00','', SW_SHOWNORMAL);

тут всё верно было так как , если пробывать без задаваемых параметров времени ( то есть напрямую через батон) она работает "На ура" - комп вырубается моментально.


NuMeR, Не каких изменений та жа трабла.

Тогда действительно она могла возникать из-за того, что приходилось "робел" переводить в цифру , но теперь я поменял местами, но результат тот же.

ЗЫ Ошибку нужно искать, где то в моменте с пробелами, так как, если заполнить все поля (цифрами), то ошибка не вылетает.

[NuMeR]

а хотябы что-нибудь изменилось или все осталось так же как и было? ошибка возникала из-за попытки перевода в число строки '', которая числом не является, мой код должен был исправить эту ошибку

[Вавел из ГМТУ]

О боже... не надо так реализовывать!
Щас погоди, я напишу...

[NuMeR]

V@mpir, возможно вы успели прочитать мое сообщение с неправильным вариантом, которое я отредактировал, то, что там сейчас должно работать

[V@mpir]

Всё! Точно не заметил что ты правил пост. Спасибо!

[Вавел из ГМТУ]

Лучше погляди моё вложение.. Твой алгоритм ядовит!
Неплохобы ещё пару проверок добавить к коду....

var
  Form1: TForm1;
  T : Integer;
implementation

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Try
  T := StrToInt(Edit1.Text) * 3600 + StrToInt(Edit2.Text) * 60 + StrToInt(Edit3.Text);
  Timer1.Enabled := True;
Except
  ShowMessage('Произошла ошибка. Проверте правильность даных в Едитах.');
End;
End;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(T Div 3600) + ':'
                + IntToStr(T Div 60 - (T Div 3600)*60) + ':'
                + IntToStr(T - (T Div 60)*60);
If T < 0 Then
  Begin
    ShowMessage('Выключаем компьютер');
    Timer1.Enabled := False;
  End;
T := T - 1;
end;

end.