タスクをプログラムでスケジュールする方法

Question

Googleアップデータのようにdelphi 7を使用してタスクをスケジュールするにはどうすればよいですか？
カスペルスキーのウイルス対策ソフトウェアによって誤検出として検出されるため、レジストリを使用していません。
スタートアップアイテムとしてレジストリに追加したものはすべてトロイの木馬として検出され、タスクスケジュールを使用することに決めました

Answer 1

次のコードは、システムでアプリケーションを実行するタスクを削除して作成する方法を示していますシステム特権を持つ起動。

Windows Vistaはタスクの強制作成をサポートしていますが、このフラグが存在しないWindows XPとの下位互換性のためにタスクスケジューラを使用しません。 以下の例では、タスクが既に存在する場合は削除してから新しいタスクを作成しようとしています。

それは、これらのコマンドを実行します。

でschtasks /削除/ F/TN "MYJOB"
でschtasks /作成/ TN "MYJOB"/TR "C：\ Application.exe" /皮下ONSTART/ruの "システム"

/削除 - タスク
/Fを削除 - タスク・パラメータを作成
/TN - - タスク
の一意の名前を作成/確認に
を抑制/TR - 実行可能ファイルのファイル名は
/SC - スケジュールタイプ、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

は、ここで問題を考え出しいずれかがXPのPROの上に私のためにテストすることができれば当然のBしまう

ProをWindows 7でテストされ正常に動作します

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;