Реализовать планировщик задач. Позволяет планировать запуск приложений, отключать, презагружать компьютер по таймеру(через определённый промежуток времени, либо в чётко заданное время) . Нужно ещё чтобы грузился с виндой, а данные о расписании хранить или в ini или в реестре...Кто что знает пишите. Заранее спасибо.

В данной формулировке теме место либо в центре помощи, либо в работе. 

Evan, в поиск.

Evan, а чем не подходит стандартный виндовый Task-шедулер?

Поищи в статьи Хакера, там был пример, сам по нему сделал планировщик

Проблема-то в чем?

http://cherryware.org/s3home.html

оно типо платное, но я напесал афтору - он выслал мне бесплатно.

Это сообщение отредактировал(а) Gershkovich - 21.2.2008, 17:07

А зачем тему то подняли? Афтар уже 2 недели на форуме не появлялся, а тема наверху.

Неизвестно зачем=) Хотя я ничего супер сложного не вижу...

  

да ну... реализацию в студию 

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

Кончаем флудить господа.  

Спасибо за советы. В принципе уже почти сам допытал, но есть одна проблема. Прога в может отслеживать тока одну задачу. Делаю , чтоб для нескольких. Каждое задние записывается в запись
TZadanie = record
    Name:string;
    Path:string;
    Date:TDateTime;
    Hour:word;
    Minut:word;
    Action:string;
Все записи хранятся в массиве
TZadMas = array[0..50] of TZadanie;
ZadMas:TZadMas;
Читаю данные в массив, но как постоянно отслеживать задачу. Думаю сделать двумя циклами: внутренний просматривает массив на и сравнивает время залдачи с текущим, а второй зпускает поновой этот просмотр массив. Так вот вопрос в том как выйти из цикла по выполнении всех задач из массива. Т.е. какое условие задть? Вот код:
i:=0;
// получить текущее время
    cHour := HourOf(Now);
    cMin :=  MinuteOf(Now);
number:=0;
repeat
for i:=0 to 50 do begin
if (cHour = Zadmas[i].Hour) and (cMin = Zadmas[i].Minut) then

if Zadmas[i].Action='Run' then number:=0 else if Zadmas[i].Action='Reboot' then number:=1
else if Zadmas[i].Action='Shutdown' then number:=2 else if Zadmas[i].Action='Logoff' then number:=3;

  case number of
  0:begin
  ShellExecute(handle,'open',Pchar(Edit1.Text),nil,'',SW_Normal);
  Timer2.Enabled:=false;
    end;
  1:begin //Перезагрузить
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_FORCE OR EWX_REBOOT,0);
  end;
  2:begin //Завершить работу
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
  end;
  3:begin //Выйти из системы
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_LOGOFF or EWX_FORCE, 0);
   end;
  end;//endcase
  end;//endfor
until  ???

Evan, читать код невозможно, используй тег code