تشغيل البرنامج كـ "Run as administrator" ؟؟؟

[ملك اليوفي]

السلام عليكم ، كيف حالكم جميعا
انا جديد في الدلفي و لي فيها ثلاثة أسابيع تقريباً

قمت بعمل برنامج بسيط يقوم بالتعديل في ريجستري النظام (Registry)
جربت البرنامج على Windows XP و عمل بدون مشاكل

لكن المشكلة حدثت عند تجربته على Windows 7
حيث يجب في كل مرة أن أضغط على البرنامج بالزر اليمين و أختار " تشغيل كمسؤول " أو بالإنجليزية "Run as administrator"
حيث اذا لم أفعل ذلك و قمت بتشغيله مباشرة فإن البرنامج يصبح غير فعال و لايعمل .
هل توجد طريقة بحيث يعمل البرنامج تلقائيا كـ مسؤول

أو على الأقل اذا نسي المستخدم تشغيل البرنامج كمسؤول فإن البرنامج يعطي رسالة يطلب فعل ذلك

[onexite]

هذا سؤال مهم حقا
عندي هذا لا اعرف اذا كان يعمل وجدته في موقع صيني
var

PHP كود :

_vPathExe : string;
begin
_vPathExe := ExtractFilePath(Application.ExeName) + 'project1.exe';
ShellExecute(0, 'runas', PChar(_vPathExe), nil, nil, SW_SHOWNORMAL);
Application.Terminate;
end; 


[Agmcz]

السلام عليكم
أخي استعمل خاصية البحث
لأن سؤال سبق طرحه سابقا
http://www.delphi4arab.net/forum/showpos...ostcount=4