كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟

[الحويطي]

مرحبا بكم أخواني الكرام

كيف تشغيل البرنامج كـ Administrator للجهاز؟

ولكم مني أرق تحية

[abedroof2001]

وجهتني نفس المشكلة كما في الصورة

كل مرة ينفذ البرنامج ك administrator

[الحويطي]

فهمتني خطأ أخي الغالي
السؤال برمجيا

[kachwahed]

مرحبا بكم أخواني الكرام

السلام عليكم ورحمة الله

منذ مدة شاهدت محاضرة Marco Cantu حول ذلك لكنها ضاعت مني والسورس أيضا
ملخصها:

كود :

http://www.prototypical.co.uk/pdf/wrp.pdf

إلى حين أجدها جرب هذه:

PHP كود :

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; 


ليس لدي Vista أو Seven لأجربها

راجع هنا أيضا محاضرة أخرى:

كود :

http://edn.embarcadero.com/article/33942

وهذا كتاب حول الموضوع:

كود :

http://www.delphi.org.nz/file.php/1/VistaUACandDelphi.pdf

بالتوفيق.

[Amine]

السلام عليكم

سؤال مهم جدا ،، وانا اواجه نفس المشكل في الفيستا

بارك الله فيك اخي kachwahed على الافادة
لكن للاسف لم ينجح الكود معي حل المشكلة على الفيستا ؟؟

حاولت البحث فوجدت نفس الكود تقريبا

هل توجد طريقة اخرى ؟

[Lam.Abdeldjalil]

و عليكم السلام ورحمة الله

لم أجرب مع الوينوز فيستا ولا 7
لكني وجدت مناقشة حول الموضوع في موقع Embarcadero

حل : إضافة XP manifest إلى الملف التنفيذي يجبر برنامجك على طلب صلاحيات admin

جرب ورد لنا الخبر

بالتوفيق

[Amine]

شكرا عبد الجليل
لقد اظفته لكن لا جديد,,
لم يحدث اي تغيير

[Lam.Abdeldjalil]

لم تنجح XP manifest :angry:

طريقة أخرى قم بنزع XP manifest
نقوم بإضافة الـ manifest يدويا إلى الريسورس
حمل الملف المرفق

قم بإضافة الريسورس إلى المشروع ( يوجد ملفا ريسورس )

أضف السطر إذا أردت فتح البرنامج بصلاحيات invoker

كود :

{$R vista.res}

أضف السطر إذا أردت فتح البرنامج بصلاحيات administrator

كود :

{$R vistaadm.res}

( ملف الريسورس أمام المشروع )

لمعرفة المزيد عن كيفية إستعمال ملفات الريسورس
http://www.delphi4arab.net/forum/showthr...p?tid=2030

[محمد عبد العزيز]

السلام عليكم ورحمة الله

جرب اضافة مفتاح
Software\Microsoft\Windows NT\Current Version\AppCompatFlags\Layers
به مسار برنامجك وفي Data ضع RUNASADMIN
بالتوفيق

[php3man]

بسم الله الرحمن الرحيم

السلام عليكم

طيب اذا برنامج أخر غير برنامجي كيف اختار برمجيا ما بالصوره