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

[Rebel123]

Вот есть такой код:

Procedure TForm1.Label1Click(Sender: TObject);
Var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
Begin
If OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES Or
TOKEN_QUERY, hToken) Then
Begin
LookupPrivilegeValue(Nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
If AdjustTokenPrivileges(hToken, False, tkp, 0, Nil, ReturnLength) Then
{ExitWindowsEx(EWX_ShutDown,0);// Выключение
End;
End;

Вопрос в этом:
как можно сделать чтоб на выборе Itemse (ComboBox1) допустим: Выключить комп через 30 мин, чтобы он выключал именно через 30 мин!?

[DomiNick]

А таймером не подходит?

[Rebel123]

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

А таймером не подходит?

Ну вот как раз таки с таймером я особо не работал!

Может скинет парочку кода? или книгу по Ttimer хорошую подскажите?

[Volt]

вот пример таймер

[Altera]

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

Может скинет парочку кода? или книгу по Ttimer хорошую подскажите?

Ну насмешил....
Там и уметь ничего не надо.
Кидаешь компонент на форму.
Свoйства:
Enabled - активный/неактивный
Interval - интервал срабатывания (в мили секундах!)
И одно событие onTimer: процедура стандартного вида.
процедура onTimer срабатывает через каждый промежуток времени, указанный в Interval, если Enable = true;
Удачи!

//А на счёт хороших книг: http://programmersforum.ru/showthread.php?t=14054

[Rebel123]

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

Ну насмешил....
Там и уметь ничего не надо.
Кидаешь компонент на форму.
Свoйства:
Enabled - активный/неактивный
Interval - интервал срабатывания (в мили секундах!)
И одно событие onTimer: процедура стандартного вида.
процедура onTimer срабатывает через каждый промежуток времени, указанный в Interval, если Enable = true;
Удачи!

//А на счёт хороших книг: http://programmersforum.ru/showthread.php?t=14054

Ну вот то что вы написали выше, я все уже понял! стоило прочитать про Ttimer 5-10 минут как уже в принципе понял его работу! а за книгу отдельное спасибо! это лучше чем критиковать в моем другом посте!
P.S если я чего-то не понял это не значит что надо так относиться (это можно понять как: вот ты видишь новичка в кодинге нет бы руку протянуть, а в ответ ты его еще его нагой добиваешь)

[Пепел Феникса]

Rebel123, да не наезжай ты на них.
просто есть такая вещь как непонимание как такое можно не понять..
вот и все.

ребят...а чего мы грубеем то?
добрее будьте раз уж отвечать начинаете?)

[Altera]

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

Ну вот то что вы написали выше, я все уже понял! стоило прочитать про Ttimer 5-10 минут как уже в принципе понял его работу! а за книгу отдельное спасибо! это лучше чем критиковать в моем другом посте!
P.S если я чего-то не понял это не значит что надо так относиться (это можно понять как: вот ты видишь новичка в кодинге нет бы руку протянуть, а в ответ ты его еще его нагой добиваешь)

Ничего я нагой никого не добиваю. Наоборот рад буду, если знающих людей прибавится. Твоё сообщение меня просто реально улыбнуло, вот и сейчас пишешь стоило прочитать про Ttimer 5-10 минут как уже в принципе понял его работу!. А что, по имени компонента (timer) не ясно как он работает для чего используется?

Извините, если оскорбил.

[777user777]

наверно~ не в тему,но зачем вся эта хрень с првилегиями?проще~ сделать так:

WinExec('shutdown -s -f -t <время,через которое~ выключить(в секундах)>',SW_HIDE)