Как запланировать задачу программно

Question

Как назначить задачу с помощью delphi 7, например, Google updater?
Я не использую реестр, потому что он обнаруживается антивирусом Касперского как ложный сигнал.
Все, что я добавляю в реестр в качестве начального элемента, обнаруживается как троянец, поэтому я решил использовать расписание задач

Answer 1

В следующем фрагменте кода показано, как удалить и создать задачу, которая будет запускать приложение в системе запуск с системными привилегиями. Он использует следующую командную строку:

Однако планировщик заданий с Windows Vista поддерживает принудительное создание задач, поэтому я бы не использовал его для обратной совместимости с Windows XP, где этого флага не существует. Итак, пример ниже пытается удалить задачу (если она уже существует), а затем создать новую.

Он выполняет следующие команды:

Schtasks/удалить/F/тн "myjob"
Schtasks/создать/т "myjob"/тр "C: \ application.exe"/СБН OnStart/ру «система»

/удалить - удалить задачу
/с - подавить в подтверждении
/создать - создать параметр задачи
/тн - уникальное имя задачи
/тр - имя файла исполняемого файла
/СБН - тип расписания, OnStart - запускаться при старте
/RU - запустить задачу под правами указанного пользователя

А вот код:

uses 
    ShellAPI; 

procedure ScheduleRunAtStartup(const ATaskName: string; const AFileName: string; 
    const AUserAccount: string); 
begin 
    ShellExecute(0, nil, 'schtasks', PChar('/delete /f /tn "' + ATaskName + '"'), 
    nil, SW_HIDE); 
    ShellExecute(0, nil, 'schtasks', PChar('/create /tn "' + ATaskName + '" ' + 
    '/tr "' + AFileName + '" /sc ONSTART /ru "' + AUserAccount + '"'), 
    nil, SW_HIDE); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    ScheduleRunAtStartup('myjob', 'C:\Application.exe', 'System'); 
end; 

Answer 2

выяснял проблема здесь прекрасно работает

Испытано на окнах 7 Pro, если кто может проверить меня на XP PRO будет б оценил

procedure ScheduleRunAtStartup(const ATaskName: string; const AFileName: string; 
    const GetPCName: string ; Const GetPCUser: String); 
begin 
    ShellExecute(0, nil, 'schtasks', PChar('/delete /f /tn "' + ATaskName + '"'), 
    nil, SW_HIDE); 
    ShellExecute(0, nil, 'schtasks', PChar('/create /tn "' + ATaskName + '" ' + '/tr "' + QuotedStr(AFileName) + '" /sc ONLOGON /ru "' + GetPCName+'\'+GetPCUser + '"'), nil, SW_HIDE) 
end;