+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تنفيذ برنامج دلفي بصلاحيات Administrator بنظام windows 7 (/showthread.php?tid=3137)
تنفيذ برنامج دلفي بصلاحيات Administrator بنظام windows 7 - Agmcz - 31-05-2011
السلام عليكم
كما نعلم أن وينداوز 7 حمايته قوية
و عند عن تعامل مع ملفات نظام أو رجيستري
يتطلب منا تشغيل البرنامج بصلاحية root (أمزح) أنا في وينداوز بصلاحية administrator
فهل من طريقة مبتكرة لتشغيل البرنامج بصلاحية مسؤول من دلفي
تنفيذ برنامج دلفي بصلاحيات Administrator بنظام windows 7 - kachwahed - 01-06-2011
وعليكم السلام ورحمة الله
راجع:
http://www.delphi4arab.net/forum/showthread.php?tid=3498
أيضا جرب التشغيل باستخدام حساب:
PHP كود :
runas /user:Administrator "ProgramName"
كود :
https://forums.embarcadero.com/message.jspa?messageID=316595تنفيذ برنامج دلفي بصلاحيات Administrator بنظام windows 7 - Agmcz - 01-06-2011
شكرا لك أخي على الرد
إن شاء الله سأبحث وفي الرد المقبل سأضع سورس
ليستفيد منه غيرنا
تنفيذ برنامج دلفي بصلاحيات Administrator بنظام windows 7 - Agmcz - 02-06-2011
وفقا للمعلومات التي أفدتونا بيها
من هدا الموضوع
و http://www.delphi4arab.net/forum/showthread.php?tid=3498
وزيارة
كود :
https://forums.embarcadero.comشكرا لكم جميعا السورس مرفق
تنفيذ برنامج دلفي بصلاحيات Administrator بنظام windows 7 - onexite - 13-08-2012
كود :
RunMeAsAdmin(hWnd: HWND; filename: string; Parameters: string): Boolean;
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://www.exampledb.com/run-delphi-application-as-administrator-windows.htm