проблема с закрытием формы

[Terran]

Оба варианта путей в реестр будут правильными. Можно так и так записывать. Всё что находится в модуле, всё нужно и всё используется. Там ничего лишнего нету.

[betirsolt]

понятно))спасибо всем)))вы очень помогли))без вас я никто

[Terran]

Не за что

[psycho-coder]

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

Оба варианта путей в реестр будут правильными.

Важно!!!!
Первый вариант запишется в кофниг текущего пользователя.
Второй запишется для всех. НО если у вас не прав то вы туда ничего не запишите. Например работаете под ограниченной учетной записью.

[betirsolt]

ребята помогите добавить сюда таймер

procedure TForm1.FormActivate(Sender: TObject);
begin
 Timer1.Interval := 50000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
winexec(pchar('shutdown -s -t 02'), sw_show);
end;

end.

как ставить на таймер например одну минуту или 5 минут???он у меня или рано срабатывает или вообще не срабатывает...(((

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

[Terran]

Сначала ставите таймеру

Timer1.Enabled:=False;,

а потом пишите код:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Timer1.Interval:=60000;// 1 мин
Timer1.Enabled:=True;
End;

[betirsolt]

не понимаю это надо в процедуру procedure TForm1.Timer1Timer(Sender: TObject); писать Timer1.Enabled:=False;, или куда

напишите подробнее а то до жирафа не доходит)))

[psycho-coder]

Выделите Timer1 на форме и в "Инспекторе объектов" (Object Inspector) поставьте Enabled в положение false;

[betirsolt]

вот что у меня получилось....

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=60000;
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
winexec(pchar('shutdown -s -t 02'), sw_show);
end;

end

при такой схеме после включения этой проги через минуту комп выключается...но если я закрою эту прогу до того как пройдет минута тогдва комп не выключается...а мне нужно чтоб он выключал даже если я закрою эту прогу???как это сделать???

[Terran]

но если я закрою эту прогу до того как пройдет минута тогдва комп не выключается...

При закрытии программы Вы всё гасите то что в ней было, поэтому ничего не происходит.

а мне нужно чтоб он выключал даже если я закрою эту прогу???как это сделать???

Аналогично как и с

winexec(pchar('shutdown -s -t 02'), sw_show);

только вам надо поменять параметры так:

winexec(pchar('shutdown -s -t 60'), sw_show);