प्रोग्रामेटिक रूप से किसी कार्य को शेड्यूल करने के लिए कैसे करें

Question

मैं Google अद्यतनकर्ता की तरह डेल्फी 7 का उपयोग करके कार्य कैसे निर्धारित कर सकता हूं?
मैं रजिस्ट्री का उपयोग नहीं कर रहा हूं क्योंकि इसे कास्पर्सकी एंटीवायरस द्वारा झूठा अलार्म के रूप में पता चला है।
कुछ भी मैं रजिस्ट्री में जोड़ने के रूप में एक स्टार्ट-अप आइटम एक ट्रोजन के रूप में पता हो जाता है तो मैं काम अनुसूची का उपयोग करने का फैसला किया

Answer 1

कोड का निम्न भाग हटा सकते हैं और कार्य जो सिस्टम पर अनुप्रयोग चलेगा बनाने का तरीका पता चलता सिस्टम विशेषाधिकारों के साथ स्टार्टअप। यह निम्न कमांड लाइन का उपयोग करता है:

हालांकि विंडोज विस्टा के बाद टास्क शेड्यूलर कार्यों के बल निर्माण का समर्थन करता है, मैं इसे विंडोज एक्सपी के साथ पिछड़े संगतता के लिए उपयोग नहीं करता, जहां यह ध्वज मौजूद नहीं है। तो नीचे दिया गया उदाहरण कार्य को हटाने की कोशिश करता है (यदि पहले से मौजूद है) और फिर नया बनाएं।

यह इन आदेशों को निष्पादित करता है:

schtasks// f/tn "myjob" हटाएँ
schtasks/बनाएँ/tn "myjob"/tr "C: \ Application.exe"/अनुसूचित जाति onStart/आरयू "सिस्टम"

/हटाने - कार्य को हटाने
/च - पुष्टि दबाने
/बना सकते हैं - बनाने के कार्य पैरामीटर
/TN - कार्य की अद्वितीय नाम
/tr - एक निष्पादन योग्य फ़ाइल का फ़ाइल नाम
/अनुसूचित जाति - अनुसूची प्रकार, onStart - प्रारंभ होने पर चलाएं
/आरयू - निर्दिष्ट उपयोगकर्ता

और यहाँ की अनुमतियों के तहत कार्य चलाने के कोड है:

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 प्रो पर परीक्षण किया गया है, तो किसी भी एक XP प्रो पर मेरे लिए परीक्षण कर सकते हैं की सराहना b होगा

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;