+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟ (/showthread.php?tid=2233)
كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟ - الحويطي - 25-07-2010
مرحبا بكم أخواني الكرام
كيف تشغيل البرنامج كـ Administrator للجهاز؟
ولكم مني أرق تحية
كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟ - abedroof2001 - 25-07-2010
وجهتني نفس المشكلة كما في الصورة
![[صورة: drecqw.jpg]](http://i28.tinypic.com/drecqw.jpg)
كل مرة ينفذ البرنامج ك administrator
كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟ - الحويطي - 25-07-2010
فهمتني خطأ أخي الغالي
السؤال برمجيا
كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟ - kachwahed - 25-07-2010
إقتباس :مرحبا بكم أخواني الكرامالسلام عليكم ورحمة الله
منذ مدة شاهدت محاضرة Marco Cantu حول ذلك لكنها ضاعت مني والسورس أيضا
ملخصها:
كود :
http://www.prototypical.co.uk/pdf/wrp.pdfPHP كود :
function RunAsAdmin(hWnd: HWND; filename: string; Parameters: string): Boolean;
{
See Step 3: Redesign for UAC Compatibility (UAC)
http://msdn.microsoft.com/en-us/library/bb756922.aspx
}
var
sei: TShellExecuteInfo;
begin
ZeroMemory(@sei, SizeOf(sei));
sei.cbSize := SizeOf(TShellExecuteInfo);
sei.Wnd := hwnd;
sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
sei.lpVerb := PChar('runas');
sei.lpFile := PChar(Filename); // PAnsiChar;
if parameters <> '' then
sei.lpParameters := PChar(parameters); // PAnsiChar;
sei.nShow := SW_SHOWNORMAL; //Integer;
Result := ShellExecuteEx(@sei);
end;
راجع هنا أيضا محاضرة أخرى:
كود :
http://edn.embarcadero.com/article/33942كود :
http://www.delphi.org.nz/file.php/1/VistaUACandDelphi.pdfبالتوفيق.
كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟ - Amine - 27-07-2010
السلام عليكم
سؤال مهم جدا ،، وانا اواجه نفس المشكل في الفيستا
بارك الله فيك اخي kachwahed على الافادة
لكن للاسف لم ينجح الكود معي حل المشكلة على الفيستا ؟؟
حاولت البحث فوجدت نفس الكود تقريبا
هل توجد طريقة اخرى ؟
كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟ - Lam.Abdeldjalil - 27-07-2010
و عليكم السلام ورحمة الله
لم أجرب مع الوينوز فيستا ولا 7
لكني وجدت مناقشة حول الموضوع في موقع Embarcadero
حل : إضافة XP manifest إلى الملف التنفيذي يجبر برنامجك على طلب صلاحيات admin
جرب ورد لنا الخبر
بالتوفيق
كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟ - Amine - 27-07-2010
شكرا عبد الجليل
لقد اظفته لكن لا جديد,,
لم يحدث اي تغيير
كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟ - Lam.Abdeldjalil - 27-07-2010
لم تنجح XP manifest :angry:
طريقة أخرى قم بنزع XP manifest
نقوم بإضافة الـ manifest يدويا إلى الريسورس
حمل الملف المرفق
قم بإضافة الريسورس إلى المشروع ( يوجد ملفا ريسورس )
أضف السطر إذا أردت فتح البرنامج بصلاحيات invoker
كود :
{$R vista.res}أضف السطر إذا أردت فتح البرنامج بصلاحيات administrator
كود :
{$R vistaadm.res}( ملف الريسورس أمام المشروع )
لمعرفة المزيد عن كيفية إستعمال ملفات الريسورس
http://www.delphi4arab.net/forum/showthread.php?tid=2030
كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟ - محمد عبد العزيز - 28-07-2010
السلام عليكم ورحمة الله
جرب اضافة مفتاح
Software\Microsoft\Windows NT\Current Version\AppCompatFlags\Layers
به مسار برنامجك وفي Data ضع RUNASADMIN
بالتوفيق
كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟ - php3man - 28-07-2010
بسم الله الرحمن الرحيم
السلام عليكم
طيب اذا برنامج أخر غير برنامجي كيف اختار برمجيا ما بالصوره