delphi4arab منتديات دلفي للعرب

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

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

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

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

هذا سؤال مهم حقا
عندي هذا لا اعرف اذا كان يعمل Smile

وجدته في موقع صيني
var

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

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

ملك اليوفي

onexite

Agmcz