اضافه کردن برنامه در استارت آپ

[peiman]

سلام
چطور میشه یه برنامه رو به استارت آپ اضافه کرد
منظورم از طریق برنامه است نه setup سازها
مثل این برنامه ها که یه تیک دارن که میتونی نشون بدی برنامه در استارت آپ باشه یا نباشه

 

[Arash_j13]

این جوری اضافه می کنید

procedure TForm1.Button1Click(Sender: TObject);
var
   Reg:TRegistry;
begin
   Reg := TRegistry.Create;
   try
      Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
      Reg.WriteString('Program name',ParamStr(0));
   finally
     Reg.Free;
   end;

end;

و اینجوری حذف می کنید

procedure TForm1.Button2Click(Sender: TObject);
var
   Reg:TRegistry;
begin
   Reg := TRegistry.Create;
   try
      Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
      Reg.DeleteValue('Program name');
   finally
     Reg.Free;
   end;

end;

البته ابید یونیت registry رو به لیست uses اضافه کنید

 

[peiman]

ممنون
به جای 'Program name' باید آدرس کامل برنامه رو قرار بدم؟

 

[Arash_j13]

نه یه اسم دلخواه که بهتره اسم برنامه تون باشه

 

[peiman]

ممنون
خیلی جالب بود

 

[programmer]

البته چون RootKey مشخص نشده پیش فرض اون HKEY_Current_User هست.برای همین برنامه فقط هنگام بالا اومدن یوزر فعلی اجرا میشه.

اگه بخواهید برنامه هر بار که سیستم استارت میشه (با هر یوزری) اجرا بشه باید RootKey اونو HKEY_LOCAL_MACHINE قرار بدید.

البته اونوقت اگه برنامه در یوزرهای لیمیت شده اجرا بشه نمیتونه کلید رجیستری رو ثبت کنه چون به HKEY_Local_machine دسترسی نداره.

مسیر برنامه هم نبـاید تغییر کنه.چون برای ثبت آدرس در رجیستری از آدرس فعلی برنامه در حال اجرا استفاده شده.

 

[peiman]

ممنون
با توجه به کاربرد برنامه(اماده باش برای ارسال ایمیل) فک کنم همون تو یوزر جاری اجرا بشه بهتره
باز هم ممنون

 

[programmer]

خواهش میکنم.

امیدوارم از ارسال ایمیل برای کارهای خوب استفاده کنید.

در ضمن مواظب آنتی ویروسها باشید چون بعضی از اون ها مثل مک آفی جلوی ارسال ایمیل رو میگیرن.

 

[peiman]

نه بابا نگران نباشید
یه سیستم فروشه که کاربرا کالاهای مورد نیازشون رو انتخاب میکنن و ارسال میکنن
اولس میخواستم با کمک آرش جان طوری باشه که فایل سفارش رو آپلود کنه که نشد و حالا میخوام میل کنه
من خودم نورتن دارم
نامرد اول میلو میخونه بعد اجازه ارسال میده
ممنون

 

[peiman]

بچه ها من امتحان کردم ولی یه مشکلی داره
اضافه میکنه ولی remove نمی کنه

 

[Arash_j13]

اونی که من نوشتم هم اضافه و حم حذف می کنه

 

[programmer]

بچه ها من امتحان کردم ولی یه مشکلی داره
اضافه میکنه ولی remove نمی کنه

همونطور که آقا آرش گفتند هم اضافه میکنه و هم حذف.

احتمالا آدرس رجیستری رو برای Remove توی قسمت OpenKey اشتباه وارد کردین و یا توی deletevalue .

کد که مشکلی نداره.

 

[peiman]

من همین کد رو کپی کردم و متوجه شدم درست کار میکنه
چون من سیستم را خواموش نمی کنم و هایبرنت میکنم این مشکل بوجود اومد
هایبر نت هم مثل سوییچ یوزر میمونه و در واقع یوزر خارج نشده
دستت هر دو تون درد نکنه