تنفيذ برنامج دلفي بصلاحيات Administrator بنظام windows 7
|
تنفيذ برنامج دلفي بصلاحيات Administrator بنظام windows 7
|
31-05-2011, 11:17 PM
السلام عليكم
كما نعلم أن وينداوز 7 حمايته قوية و عند عن تعامل مع ملفات نظام أو رجيستري يتطلب منا تشغيل البرنامج بصلاحية root (أمزح) أنا في وينداوز بصلاحية administrator فهل من طريقة مبتكرة لتشغيل البرنامج بصلاحية مسؤول من دلفي
01-06-2011, 09:01 AM
وعليكم السلام ورحمة الله
راجع: http://www.delphi4arab.net/forum/showthr...p?tid=3498 أيضا جرب التشغيل باستخدام حساب: PHP كود : runas /user:Administrator "ProgramName" كود : https://forums.embarcadero.com/message.jspa?messageID=316595
شكرا لك أخي على الرد
إن شاء الله سأبحث وفي الرد المقبل سأضع سورس ليستفيد منه غيرنا
وفقا للمعلومات التي أفدتونا بيها
من هدا الموضوع و http://www.delphi4arab.net/forum/showthr...p?tid=3498 وزيارة كود : https://forums.embarcadero.comشكرا لكم جميعا السورس مرفق
13-08-2012, 06:47 PM
كود : 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 |
|
|
