تشغيل البرنامج عند تشغيل الوندوز

أخي الكريم

الكود التالي يقوم بتشغيل البرنامج مع الإقلاع و ذلك بوضع مفتاح للمشروع في الـ Registry

أرجو أن يفيدك

uses registry;

procedure TForm1.FormCreate(Sender: TObject);
var
  reg : tregistry ;
begin
  reg := tregistry.Create ;
  reg.RootKey := HKEY_LOCAL_MACHINE ;
  if reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false) then
  if not(reg.ValueExists('myprog')) then
    reg.WriteString('myprog',application.ExeName);
end;

أرجو الإستفادة

شكرا الاخ روبر وانا ايضا لدي صديق لديه اعاقة بسيطة في يده ولا يستطيع استخدام الفارة بصورة مناسبة ويحتاج الى فتح برنامج فهل يمكن كود بالدلفي لتشغيل اي برنامج مثل الاكسس او الميديابلير او اي xxx.exe

بواسطة الضغط على احد ازراز لوحة المفاتيح مثل F5 او اي مفتاح اخر

اخي الكريم شكرا على الرد , ولكن للأسف حربت الكود ولكن مازال البرنامج لايعمل بشكل صحيح فارجو ان تجرب البرنامج الذي ارفقته لاني دخت بصراحة

وجدت الحل اخيرا هو استعمال الدالة ExtractFileDir(Application.ExeName) بدلا من الدالة Getcurrentdir