Come programmare un'attività a livello di programmazione

Question

Come posso pianificare un'attività utilizzando delphi 7 come l'aggiornamento di Google?
Non sto usando il registro perché viene rilevato dall'antivirus Kaspersky come falso allarme.
Qualsiasi cosa aggiungo nel registro come elemento di avvio viene rilevato come un cavallo di Troia quindi ho deciso di utilizzare il piano attività

Answer 1

Il seguente pezzo di codice mostra come eliminare e creare l'attività che eseguirà l'applicazione sul sistema avvio con privilegi di sistema. Utilizza la seguente riga di comando:

Tuttavia l'Utilità di pianificazione dal momento che Windows Vista supporta la creazione forzata di attività, non la userei per compatibilità con Windows XP, laddove questo flag non esiste. Quindi l'esempio seguente tenta di eliminare l'attività (se già esiste) e quindi di crearne una nuova.

esegue questi comandi:

schtasks/delete/f/tn "MyJob"
schtasks/create/tn "MyJob"/tr "C: \ Application.exe"/sc ONSTART/ru "sistema"

/cancellare - eliminare l'attività
/f - sopprimere la conferma
/creare - creare parametro compito
/tn - nome univoco del compito
/TR - nome di file di un file eseguibile
/sc - tipo di pianificazione, ONSTART - eseguire all'avvio
/ru - eseguire compito sotto autorizzazioni dell'utente specificato

Ed ecco il codice:

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

capito il problema qui funziona benissimo

testato su Windows 7 Pro se uno può provare per me su XP PRO sarebbe b apprezzato

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;