25-07-2010, 12:25 PM
25-07-2010, 03:07 PM
وجهتني نفس المشكلة كما في الصورة
![[صورة: drecqw.jpg]](http://i28.tinypic.com/drecqw.jpg)
كل مرة ينفذ البرنامج ك administrator
كل مرة ينفذ البرنامج ك administrator
25-07-2010, 03:44 PM
25-07-2010, 04:53 PM
إقتباس :مرحبا بكم أخواني الكرامالسلام عليكم ورحمة الله
منذ مدة شاهدت محاضرة 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بالتوفيق.
27-07-2010, 04:10 PM
27-07-2010, 05:52 PM
و عليكم السلام ورحمة الله
لم أجرب مع الوينوز فيستا ولا 7
لكني وجدت مناقشة حول الموضوع في موقع Embarcadero
حل : إضافة XP manifest إلى الملف التنفيذي يجبر برنامجك على طلب صلاحيات admin
جرب ورد لنا الخبر
بالتوفيق
لم أجرب مع الوينوز فيستا ولا 7
لكني وجدت مناقشة حول الموضوع في موقع Embarcadero
حل : إضافة XP manifest إلى الملف التنفيذي يجبر برنامجك على طلب صلاحيات admin
جرب ورد لنا الخبر
بالتوفيق
27-07-2010, 06:25 PM
27-07-2010, 08:38 PM
لم تنجح XP manifest :angry:
طريقة أخرى قم بنزع XP manifest
نقوم بإضافة الـ manifest يدويا إلى الريسورس
حمل الملف المرفق
قم بإضافة الريسورس إلى المشروع ( يوجد ملفا ريسورس )
أضف السطر إذا أردت فتح البرنامج بصلاحيات invoker
أضف السطر إذا أردت فتح البرنامج بصلاحيات administrator
( ملف الريسورس أمام المشروع )
لمعرفة المزيد عن كيفية إستعمال ملفات الريسورس
http://www.delphi4arab.net/forum/showthr...p?tid=2030
طريقة أخرى قم بنزع XP manifest
نقوم بإضافة الـ manifest يدويا إلى الريسورس
حمل الملف المرفق
قم بإضافة الريسورس إلى المشروع ( يوجد ملفا ريسورس )
أضف السطر إذا أردت فتح البرنامج بصلاحيات invoker
كود :
{$R vista.res}أضف السطر إذا أردت فتح البرنامج بصلاحيات administrator
كود :
{$R vistaadm.res}( ملف الريسورس أمام المشروع )
لمعرفة المزيد عن كيفية إستعمال ملفات الريسورس
http://www.delphi4arab.net/forum/showthr...p?tid=2030
28-07-2010, 09:06 AM
28-07-2010, 10:39 PM
بسم الله الرحمن الرحيم
السلام عليكم
طيب اذا برنامج أخر غير برنامجي كيف اختار برمجيا ما بالصوره
السلام عليكم
طيب اذا برنامج أخر غير برنامجي كيف اختار برمجيا ما بالصوره