программа типа TIMER

[fobass]

Dobryi, rasklad tokoi ia ho4u sozdat' progu tipa "TIMER" 4toby vyklu4at' ili perezagruzit' svoi komp. v zadonom
vremeni, interfeis ia sozadl (sm. ris.1_0) teper nado proseduru obroshenie k WINDOWS pomogite
na4inaushimu programistu

[FaTaL]

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

Dobryi, rasklad tokoi ia ho4u sozdat' progu tipa "TIMER" 4toby vyklu4at' ili perezagruzit' svoi komp. v zadonom
vremeni, interfeis ia sozadl (sm. ris.1_0) teper nado proseduru obroshenie k WINDOWS pomogite
na4inaushimu programistu

Какая именно Вам процедура нужна?
Если выключение и тому подобное, то вот:

Для выполнения перезагрузки/выключения предназначены функции ExitWindows/ExitWindowsEx

ExitWindows:

Описание:
Function ExitWindows(Reserved: DWord; ReturnCode: Word): Bool;
Иницииpует стандаpтную пpоцедуpу завеpшения pаботы с Windows. Все пpикладные задачи должны подтвеpдить завеpшение pаботы Windows. Вызывает функцию 4CH пpеpывания 21H DOS.

Паpаметpы:
Reserved: Установлен в нуль.
ReturnCode: Значение, пеpедаваемое в DOS (в pегистpе AL).

Возвpащаемое значение:
Нуль, если одна или несколько задач отказываются завеpшить pаботу.

Примеры использования:
ExitWindows(EWX_LOGOFF,0); - завершение сеанса
ExitWindows(EWX_SHUTDOWN,0); - выключение компьютера
ExitWindows(EWX_REBOOT,0); - перезагрузка
Флаги EWX_FORCE, EWX_POWEROFF и EWX_FORCEIFHUNG могут комбинироваться к нужному действию.

ExitWindowsEx:
Функция ExitWindowsEx() представляет собой расширенный вариант ExitWindows().

Описание:
BOOL ExitWindowsEx( UINT uFlags, DWORD dwReserved, );
Функция ExitWindowsEx перезагружает(restart) или выключает систему (shutdown), а также может завершить сессию для текущего пользователя(log off).

Параметры:
uFlags -- флаг завершения работы, может принимать следущие значения:
EWX_LOGOFF завершает сессию текущего пользователя.
EWX_POWEROFF выключает питание компьютера(компьютер должен поддерживать данную функцию).
EWX_REBOOT перезагружает систему.
EWX_SHUTDOWN завершает работу комьпьютера до того места, где он может быть безопасно выключен: сброшенны все файловые буферы на диск, завершает работу всех процессов.
dwReserved --Зарезирвированно для последующих нужд, параметр игнорируется.

Возвращаемое значение:
Не ноль если всё прошло успешно

Пример использования:
ExitWindowsEx(EWX_SHUTDOWN,0);
Остальные примеры смотри в описании первой функции.

Вышеописанные примеры действительны только для w9x/Me.
Дело в том, что, чтобы выполнить функциию в NT ОС, нужно получить права на выполнение этой функции. Сделать это можно через AdjustTokenPriviligies.
С помощью нижеприведённой функции можно получить любую привелегию, в т.ч. и привеленгию SeShutdownPrivilege, которая нужна для разрешения функции

[Terran]

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

Dobryi, rasklad tokoi ia ho4u sozdat' progu tipa "TIMER" 4toby vyklu4at' ili perezagruzit' svoi komp. v zadonom
vremeni, interfeis ia sozadl (sm. ris.1_0) teper nado proseduru obroshenie k WINDOWS pomogite
na4inaushimu programistu

Выключение, перезагрузку, перевод в ждущий режим в Windows NT или XP можно осуществить так:

Procedure TForm1.Button1Click(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_Reboot,0); // Перезагрузка
{ExitWindowsEx(EWX_ShutDown,0);// Выключение
SetSystemPowerState(true, true);  } //Перевести комп в ждущий режим
End;
End;

(Пример получения привилегий)

[fobass]

искрений блогодарин спс разберемся пока времени нет, курсовая горит